package Foo;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(foo);

sub foo {}

package Bar;
@ISA = qw(Foo);

package Baz;
@ISA = qw(Bar);