Open atoomic opened 7 years ago
This is an extract from xtestc/0169.t
package MyTest; use Attribute::Handlers; sub Check :ATTR { print "called\n"; print "ok\n" if ref $_[4] eq "ARRAY" && join(",", @{$_[4]}) eq join(",", qw/a b c/); } sub a_sub :Check(qw/a b c/) { return 42; } print a_sub()."\n";
output is 42 whereas it should be called\nok\n42 the Check is not called.
42
called\nok\n42
This is an extract from xtestc/0169.t
output is
42
whereas it should becalled\nok\n42
the Check is not called.