Comment développer des fonctions ou méthodes protégés (protected) avec «Perl»?

Pour émuler un «protected» d'un langage «Java» ou «C#» par exemple:
sub mafonction {
     die unless caller()->isa(__PACKAGE__) || __PACKAGE__->isa(caller());
     ...
}