Help for this page

Select Code to Download


  1. or download this
    package SUPERB;
use Carp;
...
}

1;
  2. or download this
    use SUPERB;

...
B::bar
C::baz
Base::baz
  3. or download this
    package bfs_dispatch;
use Carp;
...
}

1;
  4. or download this
    ## replace this:

...
use bfs_dispatch qw/A B/;

## methods deleted, lets see if the method dispatcher finds the correc
+t one!
  5. or download this
    __OUTPUT__
A::foo
B::bar
Base::baz
  6. or download this
    package C;
@ISA = qw/A B/;
sub foo { $_[0]->SUPERB::foo(@_[1..$#_]); }
sub bar { $_[0]->SUPERB::bar(@_[1..$#_]); }
sub baz { $_[0]->SUPERB::baz(@_[1..$#_]); }