There are so many ways to do this that it's impossible to give any help without seeing code. Can you produce a cut-down version of the three files (no more than twenty or thirty lines total) that demonstrates the problem.

Hi .. I tried to resolve and have the sample programs.. "Ant" correct me if I am wrong
main.pl


require "somefile.pl";

use newform;

&someFile();

&newform::func1();
[download]

somefile.pl


sub someFile {
        print "LAMP";
}

sub someFile1 {
        print "J2EE";
}
1;
[download]

newform.pm

package newform;

        require "somefile.pl";

        sub func1 {
                &someFile1();
                print "Inside func1";

        }

1;
[download]

while trying to run main.pl, getting the following error

Undefined subroutine &main::someFile called at s1.pl line 5.
[download]

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.

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.

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.

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.