Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

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/ 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/ contains a package definition for Foo::Bar, which defines $VERSION and import then it all comes together beautifully.

In your situation, lib/ 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'

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2016-10-01 14:10 GMT
Find Nodes?
    Voting Booth?
    Extraterrestrials haven't visited the Earth yet because:

    Results (577 votes). Check out past polls.