Unable to load Perl subpackage

Question

I can't work out why I am unable to access a subpackage:

mbzdb:

#!/usr/bin/perl -w

use lib "./lib";
use MbzDb::Instance;

my $instance = new MbzDb::Instance();
$instance->startFromCommandLine();

lib/MbzDb/Instance.pm:

#!/usr/bin/perl -w

package MbzDb::Instance;

use strict;
use warnings;
use Getopt::Long;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(new startFromCommandLine);

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub startFromCommandLine {
    my $self = shift;
}

If I use the same code in lib/MbzDb.pm the export works correctly. What am I doing wrong?

The error given is:

Can't locate object method "new" via package "MbzDb::Instance" (perhaps you forgot to load "MbzDb::Instance"?) at ./mbzdb line 6.

Does the same code work in lib/Mbzdb.pm if you comment out the use lib? — matt freake, Apr 11 '13 at 07:21
If I remove `use lib "./lib";` then it is unable to find the module. If I remove it and move the `.pm`s to another location I get the same error. — Elliot Chance, Apr 11 '13 at 07:28
Hmmm, and there isn't another lib directory under MbzDb (i.e. lib/Mbzdb/lib ? — matt freake, Apr 11 '13 at 07:32
perl v5.10.1 on Ubuntu 10.04 this code does not give the reported error. If the directories were wrong then the "use" line would report the error not the "new" line — Vorsprung, Apr 11 '13 at 07:44
just to restate that- on my version of perl there is no error, the code given works — Vorsprung, Apr 11 '13 at 07:57
Just in case.. Do you have `return 1` at end of `MbzDb::Instance` module? And another note: exporting `new` can lead to big bugs, i dont think you need to export it — Galimov Albert, Apr 11 '13 at 08:30
This was my fault, the text editor was holding onto a bad file :( — Elliot Chance, Apr 11 '13 at 11:29
@ElliotChance, no problem, but please close the question so that no one else tries to solve it :) — , Apr 11 '13 at 14:34

score 0 · Answer 1 · answered Apr 12 '13 at 22:18

0

Try using the excellent FindBin module.

use FindBin;
use lib $FindBin::Bin . '/lib';
use MbzDb::Instance;

This works if your structure looks like this:

mbzdb
lib/
  MbzDb/
    Instance.pm

answered Apr 12 '13 at 22:18

ccosby

11
1

Unable to load Perl subpackage

1 Answers1