in reply to Re: Re: Re: Foo is not a Bar, why?
in thread Foo is not a Bar, why?
It's one of the reasons I wrote vars::i
my $foo = Foo->new; print "foo is".($foo->isa( 'Bar' ) ? '' : ' _not_')." a Bar\n"; package Bar; sub null {} package Foo; use vars::i qw[ @ISA Bar ]; sub new { bless {},shift } __END__ foo is a Bar
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: It's one of the reasons I wrote vars::i
by bart (Canon) on Dec 18, 2003 at 22:46 UTC |
In Section
Meditations