perl -M using a module in current dir

Hello Monks,

I searched on PM first but found no joy on this specific piece of Perl wisdom, same for perldoc perlrun.

I have changes to a perl module that I want to quickly test from the command line, however perl -M appears to source the module installed in the perl system dir.

Assuming my module is Foo::Bar (package Foo::Bar), and I want to call a function barfoo() in it, I am currently doing:

perl -MFoo::Bar -e 'print barfoo("blah");'
[download]

I thought I could make it source the Module in the current dir by using -I. but it didn't work. I realized it would just append this to the end of the @INC array. I then included unshift(@INC, "."); to counter this but it still didn't work.

I'm sure there's a simple way! Thanks

Comment on perl -M using a module in current dir Download Code
Re: perl -M using a module in current dir by broquaint (Abbot) on Sep 23, 2004 at 11:19 UTC
You'll need to put `Bar.pm` in the `Foo/` directory in the current directory if you wish to use the `-M` switch or `use` e.g `shell> mkdir Foo shell> mv Bar.pm Foo/ shell> perl -I. -MFoo::Bar -e 'print barfoo("blah");'` [download] The `-I.` forces the current directory to be searched first. HTH `_________ broquaint`	[reply] [d/l]
Re: perl -M using a module in current dir by fergal (Chaplain) on Sep 23, 2004 at 11:21 UTC
`perl -Mlib=. -MFoo::Bar -e 'print barfoo("blah");'` [download] should work. '=' allows you to pass an argument to the module so -Mlib=. is the same as `use lib '.';` [download] which does an unshift for you but it does it at compile time and before the -MFoo::Bar happens. Updated Broquaint makes a good point, Bar.pm must be the in Foo directory in . I was going to say also that -I. is wrong but it's not wrong it's just weird. My first reaction was to suggest -I but when I checked it with `perl -I. -e 'print join("\n", @INC)'` [download] I didn't see . at the start of @INC so I switched to -Mlib=. Then I looked again and I saw that -I. does not not put . at the start of the search path, for my perl, it puts `./5.8.3/i386-linux-thread-multi ./5.8.3 ./i386-linux-thread-multi ./5.8.2 ./5.8.1 ./5.8.0 .` [download] which will probably have the same effect. Where is it documented that -Idir will add dir and 6 other variations of dir to the search path? Or is that just some weirdness from perl on Fedora Core 2?	[reply] [d/l] [select]
Re^2: perl -M using a module in current dir by electrosphere (Sexton) on Sep 23, 2004 at 12:03 UTC
Thanks for both your replies. Yes, I was silly not to "back up one dir" to Foo's dir and try it. It was almays my understanding the -I. puts . to the end of the @INC search path. But now I think not. It seems that -I. and -Mlib=. will both work for me, but for each the . is ordered differently: $ perl -I. -e 'print join("\n", @INC)' ./5.8.3/i386-linux-thread-multi ./5.8.3 ./i386-linux-thread-multi ./5.8.2 ./5.8.1 ./5.8.0 . /usr/lib/perl5/5.8.3/i386-linux-thread-multi /usr/lib/perl5/5.8.3 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3 <-- the other Foo::Bar package is here /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl $ perl -Mlib=. -e 'print join("\n", @INC)' . /usr/lib/perl5/5.8.3/i386-linux-thread-multi /usr/lib/perl5/5.8.3 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3 <-- the other Foo::Bar package is here /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl [download] I'm using FC2	[reply] [d/l]
Re: perl -M using a module in current dir by ikegami (Pope) on Sep 23, 2004 at 16:26 UTC
Is Bar.pm in ./Foo? If not, just do `perl -MBar -e 'print barfoo("blah");'`, even if it says `package Foo::Bar` inside.	[reply] [d/l] [select]


No such thing as a small change
	PerlMonks

perl -M using a module in current dir

The best material for plates (tableware) is: