# 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__; }
## # red mode, @ISA = qw(Gatherer::Red) use StoneGatherer qw(red); ##
## use Test::More tests => 42; ##
## package Item; sub import { push @{caller().'::ISA'}, __PACKAGE__; }