> > If so, in my
> > constructor, how do I explicitly call the parent constructor?
> 
>    package Bar;
> 
>    @ISA = qw/Foo/;
> 
>    sub new {
>        my $class = shift;
>        bless Foo->new(@_), $class;
>    }

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;
}

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to