Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Export from module in subdirectory

by tobyink (Abbot)
on Oct 09, 2012 at 19:16 UTC ( #998058=note: print w/ replies, xml ) Need Help??


in reply to Export from module in subdirectory

use does three relatively unrelated things. The line use Foo::Bar 1.0 qw(foo); does, in sequence:

  1. Converts Foo::Bar to a filename Foo/Bar.pm locates (in @INC), opens, reads and executes the file.

  2. Calls the method Foo::Bar->VERSION(1.0). VERSION is just a plain old method call, but because most people don't define a function called VERSION they inherit the default implementation from UNIVERSAL. The default implementation checks $Foo::Bar::VERSION is greater than or equal to 1.0 and croaks if it is not.

  3. Calls Foo::Bar->import('foo') if that method exists. Again, this is just a normal method call; nothing magic.

Now, I say those things are unrelated, but if the file Foo/Bar.pm contains a package definition for Foo::Bar, which defines $VERSION and import then it all comes together beautifully.

In your situation, lib/test.pm doesn't contain a package definition for lib::test, but contains a package definition for test, so it doesn't all work together.

That said, it's easy enough to put those three stages together manually, so that it works for your particular situation...

BEGIN { require lib::test; # test->VERSION(1.0); ## you didn't have a version number test->import(); }
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'


Comment on Re: Export from module in subdirectory
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://998058]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2014-12-28 15:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (182 votes), past polls