2 use warnings FATAL => 'all';
3 use Test::More qw(no_plan);
8 sub Foo::bar { $tapped = join(' ', @_) }
10 is(Foo->$_tap(sub { $_[0]->bar($_[1]) }, 'one'), 'Foo', 'invocant returned');
12 is($tapped, 'Foo one', 'subref tap');
14 is(Foo->$_tap(bar => 'two'), 'Foo', 'invocant returned');
16 is($tapped, 'Foo two', 'method name tap');