BEGIN {
if ( eval 'use Sub::Name (); 1;' ) {
- plan tests => 65;
+ plan tests => 66;
}
else {
plan skip_all => 'These tests require Sub::Name';
ok($Foo->has_method('foo'), '... Foo->has_method(foo) (defined with Sub::Name)');
is($Foo->get_method('foo')->body, $foo, '... Foo->get_method(foo) == \&foo');
+is($Foo->get_method('foo')->execute, 'Foo::foo', '... _method_foo->execute returns "Foo::foo"');
is(Foo->foo(), 'Foo::foo', '... Foo->foo() returns "Foo::foo"');
# now check all our other items ...