On Tue, 6 Jul 2004 12:01:44 -0700, Bakken, Luke wrote
>
> Wouldn't you want this instead?
>
> package Bar;
>
> @ISA = qw/Foo/;
>
> sub new
> {
> my $s = shift;
> my $class = ref($s) || $s;
> my $self = $class->SUPER::new();
> bless $self, $class;
> return $self;
> }
In the specific case of multiple inheritence, how do you know what SUPER even
is though? I mean, is it just the first entry in @ISA?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
