sub Foo::func { print("Foo!\n"); }

@Deb::ISA = 'Foo';

$obj = bless {}, 'Bar';
$obj->Deb::func();