Создание модулей Perl локальными, распознавая для некоторых, но не других ⇐ Linux

[Anonymous]

У меня есть скрипт, который смотрит на локальные модули: < /p>

Код: Выделить всё

#!/usr/bin/env perl

use FindBin 1.51 qw( $RealBin ); # use local versions so users don't have to install
use lib "$RealBin/lib";
use strict;
use feature 'say';
use warnings FATAL => 'all';
use autodie ':default';
use List::Util qw(min max);
use File::Temp 'tempfile';
use Devel::Confess 'color';
use JSON 'encode_json';
use DDP {output => 'STDOUT', array_max => 10, show_memsize => 1};
#use re 'debugcolor';
use Module::Path 'module_path';

foreach my $module ('JSON', 'DDP', 'Devel::Confess') {
my $path = module_path($module);
if (defined($path)) {
print "$module\t$path\n";
} else {
print "Danger Will Robinson!\n";
}
}

, где 3 файла содержатся локально: ddp.pm, json.pm и confess.pm
Это выходы:

Код: Выделить всё

JSON    /home/con/perl5/perlbrew/perls/perl-5.40.1/lib/site_perl/5.40.1/JSON.pm
DDP /home/con/perl5/perlbrew/perls/perl-5.40.1/lib/site_perl/5.40.1/DDP.pm
Devel::Confess  /home/con/perl5/perlbrew/perls/perl-5.40.1/lib/site_perl/5.40.1/Devel/Confess.pm
< /code>
so json и ddp загружаются локально, но Devel :: confess не. < /p>
Я попробовал < /p>
use lib "$RealBin/lib";
< /code>
и < /p>
use lib $Realbin;
< /code>
и < /p>
use lib "$RealBin/.";
< /code>
Но ни один не указывает на загрузку Devel :: Cancess из текущего каталога.  Я  угадываю , что он имеет какое -то отношение к :: 

в имени.
Я также создал символическую ссылку в Devel Directory, ln -s confess.pm devel/, но это тоже не сработало. текущий каталог?

Подробнее здесь: https://stackoverflow.com/questions/794 ... not-others