derived class

nop has asked for the wisdom of the Perl Monks concerning the following question:

I have a Cube object (see Data cube and Data cube in Perl?). Some Cube methods return new Cubes.

package Cube;
sub remap {
    my ($self, blah blah) = @_;
    blah blah 
    my $n = Cube->new(blah blah);
    blah blah 
    return $n;
}
[download]

Calling remap on derived class FOO would return a new Cube, not a new FOO. What's the right way to create a new whatever-it-is in remap?

Comment on derived class Download Code

Replies are listed 'Best First'.
Re: derived class by merlyn (Sage) on Oct 06, 2000 at 06:17 UTC
`sub remap { my $self = shift; blah blah; my $n = (ref $self)->new(blah blah); blah blah; return $n; }` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l]