3 use warnings FATAL => 'all';
8 : (skip_all => "Moose required for testing types")
12 use Function::Parameters qw(:strict);
19 Int :$foo, # this is foo
20 Int :$bar # this is bar
28 'survives comments within the signature itself';
33 fun bar ( Int :$foo, Int :$bar ) # this is a signature
40 'survives comments between signature and open brace';
44 # eval { require MooseX::Declare } or skip "MooseX::Declare required for this test", 1;
49 # use MooseX::Declare;
50 # use Method::Signatures::Modifiers;
54 method bar ( Int :$foo, Int :$bar ) # this is a signature
62 'survives comments between signature and open brace';
67 # local $TODO = "closing paren in comment: rt.cpan.org 81364";
71 # # When this fails, it produces 'Variable "$bar" is not imported'
72 # # This is expected to fail, don't bother the user.
83 'closing paren in comment';
84 is eval q[special_comment("this", "that")], 42;