3 use warnings FATAL => 'all';
7 : (skip_all => "Moose required for testing types")
14 use Function::Parameters qw(:strict);
16 for my $meth (qw/foo bar baz/) {
17 Foo->meta->add_method("anon_$meth" => method (Str $bar) {
22 method str_$meth (Str \$bar) {
30 can_ok('Foo', map { ("anon_$_", "str_$_") } qw/foo bar baz/);
34 for my $meth (qw/foo bar baz/) {
35 is($foo->${\"anon_$meth"}('bar'), $meth . 'bar');
36 is($foo->${\"str_$meth"}('bar'), $meth . 'bar');