Cannot find my own modules

core_dumped has asked for the wisdom of the Perl Monks concerning the following question:

Hi Perl Monks!

I have been sometime (several years on a pilgrimage) away from larger-than-one-file Perl scripts and I have found problems using my own modules.

I learned the current working directory has been removed from @INC as a default and found a FindBin recipe in some website. However, I don't seem to understand it correctly. Please some advice.

This is my script, which uses my own module called "basedat" (to connect to a database and hide all the ugly details):

#!/usr/bin/perl

# Connection to database

use FindBin qw($Bin);
use basedat "$Bin/basedat";

$dbh = basedat::new();

if (defined($dbh)) {
    print "connection ok!\n";
}
[download]

Both, this script and my module, called basedat.pm, are in the same directory. Yet, when executed the script still says it cannot locate basedat.pm.

Any light you could shed would be greatly appreciated

Comment on Cannot find my own modules Download Code

Replies are listed 'Best First'.
Re: Cannot find my own modules by haukex (Archbishop) on Sep 11, 2018 at 17:30 UTC
Try: `use FindBin; use lib $FindBin::Bin; use basedat;` [download] Update - Explanation: `use basedat "$Bin/basedat";` is probably not doing what you want because it's just trying to pass the string `"$Bin/basedat"` to `basedat->import()` (see use), it's not telling Perl where to actually find the module. To do that, you need to modify @INC, which I'm doing above with FindBin and lib.	[reply] [d/l] [select]
Re^2: Cannot find my own modules by core_dumped (Acolyte) on Sep 11, 2018 at 20:05 UTC
Thank you very much! Exactly what I needed to understand	[reply]
Re: Cannot find my own modules by Anonymous Monk on Sep 12, 2018 at 03:08 UTC
`#!/usr/bin/perl use lib '.'; use basedat;` [download] TIMTOWTDI `#!/usr/bin/perl use Cwd; use lib Cwd::cwd; use basedat;` [download] TIMTOWTDI `#!/usr/bin/perl use Cwd 'cwd'; use lib cwd; use basedat;` [download]	[reply] [d/l] [select]