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 :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'
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?package Two; use base 'One'; require Exporter; our @EXPORT = qw/foo/; *foo = \&One::foo; sub new { ... } sub newMethod { ... } sub overrideOldMethod { ... }
In reply to Re^2: Inherit parent, AND also import parent's exported sub ??
by exilepanda
in thread Inherit parent, AND also import parent's exported sub ??
by exilepanda
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |