1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use Attribute::Storage qw( get_subattr );
sub Foo :ATTR(CODE,NAME)
{
my ( $package, $subname, @values ) = @_;
return {
package => $package,
subname => $subname,
values => \@values,
};
}
sub myfunc :Foo("red","blue") { }
is( get_subattr( \&myfunc, "Foo" ),
{ package => "main", subname => "myfunc", values => [ "red", "blue" ] },
'sub name visible for :ATTR(NAME)' );
is( get_subattr( sub :Foo("green") { }, "Foo" ),
{ package => "main", subname => "__ANON__", values => [ "green" ] },
'sub name for :ATTR(NAME) on anonymous function' );
done_testing;
|
