## replace this:

package C; @ISA = qw/A B/;
sub foo { print "C::foo\n"; shift->SUPERB::foo; }
sub bar { print "C::bar\n"; shift->SUPERB::bar; }
sub baz { print "C::baz\n"; shift->SUPERB::baz; }

## with this:

package C;
use bfs_dispatch qw/A B/;

## methods deleted, lets see if the method dispatcher finds the correct one!