Re: require issue.

I ran through this with the debugger:

$perl -d main.pl

Loading DB routines from perl5db.pl version 1.25
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(main.pl:4):      require "somefile.pl";
  DB<1> S newform*
newform::func1
newform::someFile
newform::someFile1
  DB<2> S main*
main::BEGIN
  DB<3>
[download]

So the functions you are requiring are getting included in the package.. because that's where you require them.

One thing that require does is "check for redundant loading, skipping already loaded files." So in this case, the required script is getting included in the package. The package is compiled first. The second time that require is called is at the main, however this is after the package has been compiled. So at that time, the require fails/does not include the package a second time.

So I changed the main code to scope the function call:

use strict;
require "somefile.pl";

use newform;
&newform::someFile();
&newform::func1();
[download]

and it works as expected.

Alternatively you could do this in your main:

sub BEGIN
  {
    require "somefile.pl";
  }
[download]

Which would force the require before the newform package, however you would have to also change the call to someFile in the newform package:

&main::someFile();
[download]

which might not make sense.

Hazah! I'm Employed!

Comment on Re: require issue. Select or Download Code

Replies are listed 'Best First'.
Re^2: require issue. by ant (Scribe) on Mar 02, 2007 at 13:29 UTC
After posting that request for help I continued looking for a solution and came up with this. in newform.pm I commented out the require statement `package newform; #require "somefile.pl"; sub func1 { main::someFile1(); print "Inside func1"; } 1;` [download] I left the Requires('somefile.pl') in the Main.pl, Then, when in the newform.pm and I wanted to use the someFile1 function I called `main::someFile1();` This seemed to work! Thanks all for looking into this also.	[reply] [d/l] [select]
Re^3: require issue. by ysth (Canon) on Mar 02, 2007 at 17:16 UTC
Or put a `package main;` at the beginning of somefile.pl; that way each other file that uses something from somefile.pl makes sure that it's loaded, but always knows what package to expect it to be loaded into. I'm looking for a job.	[reply] [d/l]


No such thing as a small change
	PerlMonks