Re^4: perl inheritance

Replies are listed 'Best First'.
Re^5: perl inheritance by chromatic (Archbishop) on Mar 27, 2012 at 16:19 UTC
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`.	[reply] [d/l] [select]
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]
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]