3 use warnings FATAL => 'all';
5 use Test::More 'no_plan';
13 use Function::Parameters qw(:strict);
19 is( Stuff->echo(42), 42 );
20 is_deeply( [attributes::get \&echo], ['method'] );
27 use Function::Parameters qw(:strict);
32 sub MODIFY_CODE_ATTRIBUTES {
33 my ($pkg, $code, @attrs) = @_;
39 method moo($foo, $bar) : Bar Baz(fubar) {
42 # Torture test for the attribute handling.
47 : Baz(fu{bar:): { return {} }
49 ::ok($cb_called, 'attribute handler got called');
50 ::is_deeply($attrs, [qw/Bar Moo(:Ko{oh) Baz(fu{bar:)/], '... with the right attributes');