can_ok(BeerDB::Beer => 'fooey'); # defined in BeerDB::Beer
can_ok(BeerDB::Beer => 'floob'); # defined in BeerDB::Base
is_deeply( [@BeerDB::Beer::ISA], [qw/Maypole::Model::CDBI Class::DBI::SQLite BeerDB::Base/] );
can_ok(BeerDB::Beer => 'fooey'); # defined in BeerDB::Beer
can_ok(BeerDB::Beer => 'floob'); # defined in BeerDB::Base
is_deeply( [@BeerDB::Beer::ISA], [qw/Maypole::Model::CDBI Class::DBI::SQLite BeerDB::Base/] );