Commit | Line | Data |
633048d5 |
1 | #!perl |
2 | use strict; |
3 | use warnings FATAL => 'all'; |
4 | |
5 | use Test::More 'no_plan'; |
6 | |
7 | use attributes; |
8 | |
9 | { |
10 | package Stuff; |
11 | |
12 | use Test::More; |
13 | use Function::Parameters qw(:strict); |
14 | |
15 | method echo($arg) { |
16 | return $arg; |
17 | } |
18 | |
19 | is( Stuff->echo(42), 42 ); |
20 | is_deeply( [attributes::get \&echo], ['method'] ); |
21 | } |
22 | |
23 | |
24 | { |
25 | package Things; |
26 | |
27 | use Function::Parameters qw(:strict); |
28 | |
29 | my $attrs; |
30 | my $cb_called; |
31 | |
32 | sub MODIFY_CODE_ATTRIBUTES { |
33 | my ($pkg, $code, @attrs) = @_; |
34 | $cb_called = 1; |
35 | $attrs = \@attrs; |
36 | return (); |
37 | } |
38 | |
39 | method moo($foo, $bar) : Bar Baz(fubar) { |
40 | } |
41 | |
42 | # Torture test for the attribute handling. |
43 | method foo |
44 | : |
45 | Bar |
46 | :Moo(:Ko{oh) |
47 | : Baz(fu{bar:): { return {} } |
48 | |
49 | ::ok($cb_called, 'attribute handler got called'); |
50 | ::is_deeply($attrs, [qw/Bar Moo(:Ko{oh) Baz(fu{bar:)/], '... with the right attributes'); |
51 | } |