Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2018-01-22 05:23 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (231 votes). Check out past polls.