Re: Inherit parent, AND also import parent's exported sub ??

[stevieb]

You can do this by using the SUPER pseudo-class. Here's an example:

use warnings;
use strict;

package One;

sub foo {
    print "I'm One::foo()\n";
}

package Two;

use base 'One';

sub new {
    return bless {}, shift;
}
sub foo {
    my $self = shift;

    print "I'm Two::foo(). I'm going to call " .
          "my Parent's foo()...\n";

    $self->SUPER::foo();
}

package main;

my $obj = Two->new;

$obj->foo();

Output:

I'm Two::foo(). I'm going to call my Parent's foo()...
I'm One::foo()

See perlobj.

[exilepanda]

Umm.. sorry perhaps I didn't make my question clear enough. But take your sample as an example:

use warnings;
use strict;

package One;
require Exporter; # added
our @ISA =qw/Exporter/;# added
our @EXPORT = qw/foo/;# added

sub foo {
    print "I'm One::foo >> @_ \n"; # changed
}

package Two;

use base 'One';

sub new {
    return bless {}, shift;
}
sub foo {
    my $self = shift;

    print "I'm Two::foo(). I'm going to call " .
          "my Parent's foo()...\n";

    $self->SUPER::foo();
}

package main;

my $obj = Two->new;

$obj->foo("abc"); # Now foo() has an extra first element in @_
foo("abc"); # die() for Bareword from 'strict subs'

In this case foo() was not created/designed as a method in One, but an exported function. From my understanding, foo() is only visible in Two, but not main::. Actually, I can do that like :

package Two;

use base 'One';
require Exporter;
our @EXPORT = qw/foo/;

*foo = \&One::foo;

sub new { ... }
sub newMethod { ... }
sub overrideOldMethod { ... }

But then, I have to declare every function from the base class manually, and if I sub class Two later, I have to do that again. So, is that anyway I can having both inherit the base class (methods), and also have their exported functions at once?

[Anonymous Monk]

Read Exporter

use base 'One';
use One '/.+/';

OO classes that export lots of stuff ... code smell :)

[exilepanda]

Seem to work but when I subclass Two, that function just gone again... Seem I should end this in my first subclass by:

sub nameOfOldFunc {
 shift;
 return OldClass::nameOfOldFunc ( @_ ) ;
}

making it a method, and this become a method ever after.

Thank you very much for the help!