Estoy tratando de crear mi propio módulo de Perl en// local/lib usr/PerlMódulo Perl uso
tengo la variable ambiental PERL5LIB establecido:
$ env | grep PERL
PERL5LIB=/usr/local/lib/perl
Si creo un módulo: $ PERL5LIB/Mi/ModuleTest.pm
$ ./test.pl
Can't locate object method "new" via package "My::ModuleTest" (perhaps you forgot to load "My::ModuleTest"?) at ./test.pl line 8.
test.pl:
#!/usr/bin/perl
use strict;
use warnings;
use My::ModuleTest;
my $test = new My::ModuleTest;
print $test->check;
ModuleTest.pm:
package ModuleTest;
use strict;
use warnings;
sub new {
my $class = shift;
my ($opts)= @_;
my $self = {};
$self->{test} = "Hello World";
return bless $self, $class;
}
sub check {
my $self = shift;
my ($opts) = @_;
return $self->{test};
}
1;
Quiero usar los $ PERL5LIB como la ruta de la biblioteca de mis módulos para segregar desde el directorio de instalación.
Perl @INC:
$ perl -le 'print foreach @INC'
/usr/local/lib/perl
/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.8
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.8
/usr/lib/perl5/vendor_perl
/usr/lib/perl5/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/5.8.8
.
parece extraño: mi $ test = new Mi :: ModuleTest; –
Oyvind: Funciona, aunque la mayoría de los fanáticos de Perl te aconsejarán que uses 'my $ test = My :: ModuleTest-> new();' para evitar ciertos inconvenientes. – Konerak