Barrie Slaymaker <[EMAIL PROTECTED]> wrote:
> Something like this we3nt by on p5p a while ago (IIRCC):
>
> @{$main::{"$class\::"}->{ISA}}
This only works if $class is not nested, ie it works for X but not for X::Y,
eg:
-------
@X::ISA = qw(foo);
@X::Y::ISA = qw(bar);
my @isa;
my $class;
$class = 'X';
@isa = @{$main::{"$class\::"}->{ISA}};
print "X - @isa\n";
$class = 'X::Y';
@isa = @{$main::{"$class\::"}->{ISA}};
print "XY - @isa\n";
-------
produces
X - foo
XY -
