#!perl -T
use Test::More tests => 7;
use Acme::Meow;
{
my $kitty = Acme::Meow->new();
is( ref $kitty, 'Acme::Meow', '->new gave us a kitty' );
ok( ref $kitty->can('pet'), 'you can pet the kitty' );
ok( ref $kitty->can('feed'), 'you can feed the kitty' );
ok( ref $kitty->can('is_sleeping'), 'you check if the kitty is_sleeping' );
ok( ref $kitty->can('_kitty_status'), '_kitty_status' );
}
{
ok( ref __PACKAGE__->can('milk'), 'milk was exported' );
ok( ref __PACKAGE__->can('nip'), 'nip was exported' );
}