Re^5: perl inheritance

Assuming your constructor, new, can create new objects when given the appropriate arguments:

package ReblessKids;

use strict;
use warnings;

use Scalar::Util 'blessed';

sub do_something
{
    my $self = shift;
    ...

    my $class = blessed $self;
    return $class->new( ... );
}
[download]

Update: I did mean blessed, not reftype.

Comment on Re^5: perl inheritance Select or Download Code

Replies are listed 'Best First'.
Re^6: perl inheritance by Anonymous Monk on Mar 29, 2012 at 15:39 UTC
in other words, I'm getting the following error when I try to call $class->new(...) `Can't locate object method "new" via package "HASH" (perhaps you forgo +t to load "HASH"?) at Table.pm line 34. at Table.pm line 34` [download] I thought that reftype would return the polymorphic type (i.e. the subclass). Sorry Chromatic, but I'm bit confused here..	[reply] [d/l]
Re^7: perl inheritance by tangent (Parson) on Mar 29, 2012 at 16:11 UTC
Yes, reftype() returns the type of the variable. I think what was meant was blessed() which returns the name of the package that it is blessed into: `my $class = blessed $self;` [download]	[reply] [d/l]
Re^6: perl inheritance by Anonymous Monk on Mar 29, 2012 at 14:43 UTC
`$class = reftype $self` [download] This seems to be return 'HASH' and not the subclass. What am I doing wrong?	[reply] [d/l]