Why can't Perl find the library in my t/ directory?

Question

I have a .pm file in my current directory /t, and I inserted this line of code:

use lib qw(.);

Then I inserted this line of code

use TestUtil.pm;

where TestUtil.pm is in the current directory, but I keep getting this error:

Can't locate TestUtil.pm in @INC (@INC contains: . ........ ( Note that @INC contains the current directory)

TestUtil.pm:

package TestUtil;

use strict; use warnings;

BEGIN { use Exporter (); use vars qw( $VERSION @ISA @EXPORT );

# Set the version for version checking
$VERSION = 1.00; @ISA = qw( Exporter ); @EXPORT = qw(_a ); }

use vars qw( $VERSION @ISA @EXPORT );

sub _a { return 1; }

test_XXX.t:

use lib qw(.); use strict; use warnings;

use TestUtil;

What am I doing wrong?

Answer 1

Try removing the .pm from the module name in the "use ..." statement.

Answer 2

Have you declared the TestUtil.pm as a TestUtil module?

# in your TestUtil module...
package TestUtil;

EDIT:

Is your Perl module (TestUtil.pm) returning a status? Try adding this to the end of the TestUtil.pm file:

1;

Answer 3

In TestUtil.pm

---

package TestUtil;

use strict; use warnings;

BEGIN { use Exporter (); use vars qw( $VERSION @ISA @EXPORT );

# Set the version for version checking
$VERSION = 1.00; @ISA = qw( Exporter ); @EXPORT = qw(_a ); }

use vars qw( $VERSION @ISA @EXPORT );

sub _a { return 1; }

---

In test_XXX.t

---

use lib qw(.); use strict; use warnings;

use TestUtil;

---

Answer 4

If you are running your test like so:

prove --lib t

Then your working directory is actually a level above t/

So in your package

package t::TestUtil;
use strict; use warnings;

And in your test_XXX.t

use lib '.';
use t::TestUtil;

I've seen it done this way in several CPAN modules.