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

Re: package inside .pl

by jreades (Friar)
on Dec 02, 2002 at 12:54 UTC ( #216903=note: print w/replies, xml ) Need Help??


in reply to package inside .pl

Because that would be... illogical, captain.

There is a good logical reason for not embedding packages inside a script file (such as, modules are supposed to be re-usable, but they certainly aren't when they're embedded in a script), but there are also some syntactic issues that you'll run into. (Aside: there is a good reason for being able to embed scripts in a module -- test cases.)

If I remember correctly, use expects a .pm file (there may be some way to override this, but I don't know it). So when you say use XX::Blah perl goes looking for XX/Blah.pm in all of the directories included in @INC (which usually includes '.'). I doesn't matter that the package is defined in that script, Perl doesn't know to look for it there because it's not a .pm file. You might be able to futz around with require, but I seriously doubt that that will improve things for you.

I tried this little test:

package Foo; sub test { return "test"; } 1; package main; use Foo; print STDOUT Foo::test(); exit 0;

No dice. I even played around with package main::Foo just to make sure, but still no dice.

But if you place package Foo in the file Foo.pm then the script compiles perfectly and prints out "test" before exiting.

Alternately, if you remove the use then you can do what you want as follows:

package Foo; sub test { return "test"; } 1; package main; print STDOUT Foo::test(); exit 0;

HTH

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://216903]
help
Chatterbox?
[Corion]: Discipulus: You got pushed too much under water?
[Corion]: marto: Oooh - cinema... I guess that's something I could do with my godson and sibling and sister as well, but I guess that getting a six year old and two four year olds into one movie is a tough sell ;)
[marto]: busy weekend, no me time :P
[Corion]: marto: Yeah, that's somewhat implied :) I was on the phone with my godson yesterday (they birthday), but I haven't seen them for two weeks now (vacation), relaxing, but I somewhat miss them too ;)
[Discipulus]: me waterpolo? oh no! i'm a no sport; the tournment was for the elder son
[karlgoethebier]: good morning

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (8)
As of 2017-07-24 08:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (348 votes). Check out past polls.