use strict;
use warnings;
-use Test::More 'no_plan';
+use Test::More tests => 11;
{
{
my $map = Foo->meta->get_method_map;
+
is( scalar keys %{$map}, 3,
'method map for Foo has three keys' );
ok( $map->{foo}, '... has a foo method in the map' );
{
my $map = Foo->meta->get_method_map;
+
is( scalar keys %{$map}, 3,
'method map for Foo has three keys' );
ok( $map->{foo}, '... has a foo method in the map' );