Re: perl inheritance

Is there a way to accomplish this without overriding all the base class methods?

That depends on how the superclass has implemented the methods.

But you may be able to do something like:

foreach my $method (... list of methods to override ...) {
    eval <<"EOT";
    sub $method {
        my (\$self, \@args) = \@_;
        my $result = \$self->SUPER::$method(\@args);
        bless \$result, __PACKAGE__;
        \$result;
    }
EOT
}
[download]

Comment on Re: perl inheritance Download Code

Replies are listed 'Best First'.
Re^2: perl inheritance by Anonymous Monk on Mar 23, 2012 at 18:38 UTC
This is very interesting... Thank you! Would this be invoked in the constructor of the derived class? Thanks!	[reply]
Re^3: perl inheritance by JavaFan (Canon) on Mar 23, 2012 at 19:10 UTC
Would this be invoked in the constructor of the derived class? Of course not! This is something you need to be done once, and on class level. So, you'd do it outside of any method. That way, it get executed when you `use` the module.	[reply] [d/l]
Re^4: perl inheritance by Anonymous Monk on Mar 23, 2012 at 20:21 UTC
This smells like a good place for an import method.. What do you think? thanks!	[reply]
Re^5: perl inheritance by tobyink (Canon) on Mar 23, 2012 at 23:06 UTC
Re^6: perl inheritance by JavaFan (Canon) on Mar 23, 2012 at 23:26 UTC
Some notes below your chosen depth have not been shown here
Re^5: perl inheritance by JavaFan (Canon) on Mar 23, 2012 at 20:27 UTC
Re^4: perl inheritance by Anonymous Monk on Mar 23, 2012 at 20:35 UTC
this smells like it should go in an import method? What do you think ?	[reply]