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