Skip to content
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
@atoomic

Description

@atoomic

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.

Metadata

Metadata

Assignees

No one assigned

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions