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

sub mafonction { # private
     die if caller() ne __PACKAGE__;
     ....
}

sub mafonction { # protected
     die unless caller()->isa(__PACKAGE__) || __PACKAGE__->isa(caller());
     ...
}

sub mafonction { # public
     return "monpaquet::mafonction"
}