Re: Module ( method ) alias ?

call'em inheritance

package AudioRecord;
use parent qw' ManVideo ';
sub new {
   my $class = shift;
   ...
   my $obj = $class->SUPER::new( @_ );
   ...
   return $obj;
}
[download]

my $rec = AudioRecord->new( ... );

perlootut, Modern Perl

Comment on Re: Module ( method ) alias ? Download Code

Replies are listed 'Best First'.
Re^2: Module ( method ) alias ? by exilepanda (Friar) on Oct 04, 2012 at 07:04 UTC
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!	[reply] [d/l] [select]
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]