If you want to inherit from a foreign class in this particular way (substituting the foreign object for the standard undefined scalar), reblessing must be expected.
Erm... it's perfectly possible to inherit from another class without reblessing. It's one of the major advantages of the inside-out approach. For example:
{ package MySubClass; use base qw( SomeHashBasedClass ); use Class::InsideOut qw(:std); sub new { my $class = shift; my $self = $class->SUPER::new( @_ ); return register( $self ); } };
In reply to Re^10: Introducing Class::InsideOut
by adrianh
in thread Introducing Class::InsideOut
by xdg
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |