Perl module in a user local folder

[niqola]

Hi! I'm writting perl module using OOP. All my modules (UTest.pm and Service.pm) are in some_dir/Lib/ folder. My test script test.pl is in some_dir.

#file UTest.pm
package UTest;

use warnings;
use strict;

sub new {
  my $class = shift;
  my $self = {
    'name'      => '',
    'condition' => '',
    'args'        => [],
  };
  return bless $self, $class;
}
# other sub ...
1;

#file Service.pm
package Service;
use UTest;
our @ISA = qw(UTest);

sub new {
  my ($class)  = shift;
  my $self = UTest->new();
  $self->{'captures'} = {};
  bless $self, $class;
  return $self;
}
#others sub...
1;

#file test.pl
use Lib::Service;

my $service = Service->new;
#... other codes

I get following error when i run test.pl:

Can't locate UTest.pm in @INC (@INC contains: /etc/perl /usr/local/lib
+/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/p
+erl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl
+ .) at Lib/Service.pm line 2.
BEGIN failed--compilation aborted at Lib/Service.pm line 2.
Compilation failed in require at ./mytest.pl line 2.
BEGIN failed--compilation aborted at ./mytest.pl line 2.

Can someone help me? Thanks.

[Athanasius]

Hello niqola, and welcome to the Monastery!

Put the following line at the top of test.pl:

use lib 'Lib';

That should fix the problem. See lib.

Hope that helps,

[niqola]

Thank you. That works fine!

[Anonymous Monk]

Or, you name your "service" module properly,
by use Lib::Service.pm, then in your test perl script, you can call use Lib::Service
Infact, your Utest module should also be called Lib::UTest.pm.
Note that "::" is just like saying "Lib/UTest.pm" or "Lib/Service"
Hope this helps.

[niqola]

Thank you for your answer. But Perl compains about syntax error with use Lib::Service.pm Maybe, i misunderstood something?

[Anonymous Monk]

Hi, different guy here :)

Go to Tutorials and read Simple Module Tutorial

Also, get a copy of Modern Perl , it covers same territory and more

[sundialsvc4]

Here or elsewhere, read up about this thing called @INC.   This is the list of places that Perl looks.   Other good search keys are PERL5LIB.   Entering perl -V on the command line (with an upper-case “V”) is also very informative.

Also, very specifically, perldoc perlfaq8 where you will find a section specifically named, How do I add a directory to my include path (@INC) at runtime?