This repository was archived by the owner on Dec 11, 2024. It is now read-only.
This repository was archived by the owner on Dec 11, 2024. It is now read-only.
Attribute::Handlers cannot be compiled #59
Open
Description
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.