Re^2: Module ( method ) alias ?

Thanks for answering. However seems work out a bit weird..

ModB.pm

package ModB;
use parent qw'ModA';

sub new {
    my $c = shift;
    return $c->SUPER::new ( @_ ) ;    
}
1;
[download]

ModA.pm

package ModA;
sub new { return bless {}, shift }
sub p { print @_ }
1;
[download]

main.pl

use ModB;
my $b = ModB->new();
$b -> p ( "World!" ) ;
[download]

It prints ModB=HASH(0x182a5e4)World!. Don't know what am I missed. Also, could you explain a little what is SUPER:: referring to? Is it refer to where parent declared? And how can I inherit other methods with other method name?

Thanks again!

Comment on Re^2: Module ( method ) alias ? Select or Download Code

Replies are listed 'Best First'.
Re^3: Module ( method ) alias ? by Anonymous Monk on Oct 04, 2012 at 07:43 UTC
The first two lines do it all, all the others are only if you want to change something , like swap AudioType with VideoType ), Modern Perl and perlootut explain everything else, just use Ctrl+F to search	[reply]
Re^4: Module ( method ) alias ? by exilepanda (Friar) on Oct 04, 2012 at 22:13 UTC
Haha! yes, I got it now. And the problem of my `sub p` was that I forgot to shift the class ref, so it prints the ref address. Thanks again!	[reply] [d/l]