From e4f3813b56f71b0ac62ca16d6a005ae9d4f1c837 Mon Sep 17 00:00:00 2001 From: Charles McGarvey Date: Tue, 10 Mar 2020 10:51:21 -0600 Subject: [PATCH 1/1] add code comment --- lib/Return/Type/Lexical.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lib/Return/Type/Lexical.pm b/lib/Return/Type/Lexical.pm index 873d447..8da614a 100644 --- a/lib/Return/Type/Lexical.pm +++ b/lib/Return/Type/Lexical.pm @@ -26,6 +26,10 @@ sub _in_effect { return !defined $in_effect || $in_effect; } +# XXX This is kind of janky. It relies upon Return::Type using Attribute::Handlers, and it assumes +# some internal Attribute::Handlers behavior. If it proves to be too fragile, we may need to copy +# the Return::Type code to here. Or make Return::Type lexical if that can be done without breaking +# backward-compatibility. my $handler; BEGIN { $handler = $UNIVERSAL::{ReturnType}; -- 2.43.0