use Test::More tests => 2;
BEGIN {
use_ok( 'Acme::BooK::Is::My::Bitch' );
}
my $book = Acme::BooK::Is::My::Bitch->new();
isa_ok( $book, 'Acme::BooK::Is::My::Bitch' );
diag( "Things that BooK could say:\n\n" );
for ( grep { !/^(?:_.*|metaname|new)$/ } keys %{"Acme::BooK::Is::My::Bitch::"} ) {
next unless defined &{"Acme::BooK::Is::My::Bitch::$_"};
diag( '"' . $book->$_ . '"' );
}
diag( "\n\n" );