in reply to Foo is not a Bar, why?
And that be the argument for slaping the @ISA assignment in a BEGIN block
my $foo = Foo->new; print "foo is".($foo->isa( 'Bar' ) ? '' : ' _not_')." a Bar\n"; package Bar; package Foo; BEGIN { @Foo::ISA = qw(Bar); } sub new { bless {},shift } __END__ foo is a Bar
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Foo is not a Bar, why?
by Mr_Person (Hermit) on Dec 18, 2003 at 15:39 UTC | |
by liz (Monsignor) on Dec 18, 2003 at 15:49 UTC | |
by PodMaster (Abbot) on Dec 18, 2003 at 15:53 UTC | |
by bart (Canon) on Dec 18, 2003 at 22:46 UTC | |
by Mr_Person (Hermit) on Dec 18, 2003 at 16:00 UTC |
In Section
Meditations