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

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