Commit | Line | Data |
595edbcf |
1 | #!perl |
2 | use strict; |
3 | use warnings FATAL => 'all'; |
4 | |
5 | use Test::More tests => 2; |
6 | |
7 | use attributes; |
8 | use Function::Parameters qw(:strict); |
9 | |
10 | my $attrs; |
11 | my $cb_called; |
12 | |
13 | sub MODIFY_CODE_ATTRIBUTES { |
14 | my ($pkg, $code, @attrs) = @_; |
15 | $cb_called = 1; |
16 | $attrs = \@attrs; |
17 | return (); |
18 | } |
19 | |
20 | method moo ($a, $b) : Bar Baz(fubar) { |
21 | } |
22 | |
23 | method foo |
24 | : |
25 | Bar |
26 | :Moo(:Ko{oh) |
27 | : Baz(fu{bar:): { return {} } |
28 | |
29 | ok($cb_called, 'attribute handler got called'); |
30 | is_deeply($attrs, [qw/Bar Moo(:Ko{oh) Baz(fu{bar:)/], '... with the right attributes'); |