On Mon, 18 Jun 2001, brian moseley wrote:
> in my tests, if i do
similar test works fine for me:
package My;
use base qw(Cwd Socket Fcntl);
sub new { bless {} }
package main;
my $my = My->new();
for (@My::ISA) {
printf "is%sa $_\n", $my->isa($_) ? "" : " not ";
}
prints:
isa Cwd
isa Socket
isa Fcntl
> tangent: do you know of an easy way to print out a class'
> inheritance tree?
Devel::Symdump->{inh,isa}_tree
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
