http://www.perlmonks.org?node_id=315538


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

[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

In Section Meditations