3 use warnings FATAL => 'all';
5 use Test::More tests => 2;
8 use Function::Parameters qw(:strict);
13 sub MODIFY_CODE_ATTRIBUTES {
14 my ($pkg, $code, @attrs) = @_;
20 method moo ($a, $b) : Bar Baz(fubar) {
27 : Baz(fu{bar:): { return {} }
29 ok($cb_called, 'attribute handler got called');
30 is_deeply($attrs, [qw/Bar Moo(:Ko{oh) Baz(fu{bar:)/], '... with the right attributes');