Script Perl utilisable en tant que programme et en tant que module

Question

J'ai un script Perl (programme autonome) qui contient certains sous-marins que j'aimerais réutiliser dans d'autres scripts. En raison des limitations de l'environnement d'exécution, je ne peux pas déplacer les fonctions vers un fichier .pm commun.

Est-il possible de faire la différence si le script a été exécuté en tant que programme autonome ou il était require ed/ed do par un autre script?

La seule chose que je pouvais trouver était d'utiliser caller au niveau supérieur: programme autonome n'a pas appel alors que quand require ed caller montre qui a fait charger le module. Y a-t-il une meilleure solution?

Answer 1

Oui, votre approche caller était correcte - c'est une technique nommée "modulinos" par brian d foy. Je devine que brian l'a inventé à moins que quelqu'un m'éclaire au contraire.

La principale partie de travail de modulino ressemble à ceci (de réponse SO lien ci-dessous):

__PACKAGE__->run(@ARGV) unless caller; 
sub run { 
    my($class, @args) = @_; 
} 
1; 

Voici quelques références:

"Modules as Programs" chapter from "Mastering Perl" book by brian d foy

"Scripts as Modules" article in Dr. Dobbs

"How a script becomes a module" article on perlmonks

What should I put in my starter template for my Perl programs?