Comment accéder aux sous-répertoires (t, scripts) dans le répertoire d'installation racine de mon module?

Question

Le module Foo :: Bar a été installé quelque part dans @INC.

autres que le contrôle récursive @INC pour Foo, puis Bar, puis scripts ou t, est-il un moyen d'accéder à ces répertoires du module lui-même?

Par exemple, je voudrais appeler un script particulier dans lib/scripts/findmeifyoucan.pl de Foo/Bar.pm.

Answer 1

Vous pouvez le trouver par rapport au code correspondant, en utilisant %INC pour trouver où le code lié vit:

package Foo::Bar; 
# this code lives in ...something.../lib/Foo/Bar.pm 

package Unrelated; 

use File::Spec; 
use Foo::Bar; 

my $filename = 'Foo/Bar.pm'; 
(my $libpath = $INC{$filename}) =~ s#/\Q$filename\E$##g; ## strip/and filename 
my $script = File::Spec->catfile($libpath, qw(scripts findmeifyoucan.pl));