NEXT
- Next is a tool for method re-dispatch in perl
- What is method dispatch
package Base;
sub new {
my ($class) = @_;
return {}, $class;
}
sub methodA {
my ($self) = @_;
print 'Hello from base' . "\n";
}
package ChildA;
use base 'Base';
sub methodA {
my ($self) = @_;
$self->SUPER::methodA();
print 'Hello from childA' . "\n";
}
package ChildB;
use base 'ChildA';
sub methodA {
my ($self) = @_;
$self->SUPER::methodA();
print 'Hello from childB' . "\n";
}
package main;
my $child = ChildB->new;
$child->methodA();
Hello from base
Hello from childA
Hello from childB