Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Export from module in subdirectory

by tobyink (Canon)
on Oct 09, 2012 at 19:16 UTC ( [id://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'

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2024-03-19 05:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found