cpanel / perl-compiler

cPanel's custom implementation of B::C
https://cpanel.net
Other
8 stars 3 forks source link

Attribute::Handlers cannot be compiled #59

Open atoomic opened 7 years ago

atoomic commented 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.