# normal mode, @ISA = qw(Gatherer::Blue) use StoneGatherer; #### # red mode, @ISA = qw(Gatherer::Red) use StoneGatherer qw(red); #### use Test::More tests => 42; #### package Item; sub import { push @{caller().'::ISA'}, __PACKAGE__; }