package BigFoo;
use base 'Foo';
# bogus code, just to give the idea
use Class::MethodMaker
subclassof => 'Foo',
get_set       => [ qw /BigFoo BigBaz/ ],
list => [qw(BigList)];