in reply to Inherit parent, AND also import parent's exported sub ??

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();

[download]

Output:

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

[download]

See perlobj.

Replies are listed 'Best First'.
Re^2: Inherit parent, AND also import parent's exported sub ??
by exilepanda (Friar) on Sep 08, 2016 at 19:53 UTC
    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'

    [download]
    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 { ... }

    [download]
    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?
[reply]
[d/l]
[select]

      Read Exporter 

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

      [download]

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

[reply]
[d/l]
        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 ( @_ ) ;
}

        [download]
        making it a method, and this become a method ever after.

        Thank you very much for the help!

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom