From: Charles McGarvey <chazmcgarvey@brokenzipper.com>
Date: Tue, 10 Mar 2020 16:51:21 +0000 (-0600)
Subject: add code comment
X-Git-Tag: v0.002~1
X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-Return-Type-Lexical;a=commitdiff_plain;h=e4f3813b56f71b0ac62ca16d6a005ae9d4f1c837

add code comment
---

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};