attrs.t: Test that attr handlers can see prototypes
authorFather Chrysostomos <sprout@cpan.org>
Wed, 8 Oct 2014 15:29:04 +0000 (08:29 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 8 Oct 2014 15:29:23 +0000 (08:29 -0700)
t/op/attrs.t

index 5e97691..2761d47 100644 (file)
@@ -383,4 +383,10 @@ unlike runperl(
        qr/Unbalanced/,
       'attribute errors do not cause op trees to leak';
 
+package ProtoTest {
+    sub MODIFY_CODE_ATTRIBUTES { $Proto = prototype $_[1]; () }
+    sub foo ($) : gelastic {}
+}
+is $ProtoTest::Proto, '$', 'prototypes are visible in attr handlers';
+
 done_testing();