Variables are exported in exactly the same way as subroutines are (tho' you'll need to ensure that they are package variables, not lexical variables).

See Exporter for more details.

You can export variables using exactly the same [module://Exporter] mechanism as you can with subroutines. E.g:

(PackVar.pm):
package PackVar;
                                                                                
use base Exporter;
                                                                                
use vars qw(@EXPORT $Test);
                                                                                
@EXPORT = qw($Test);
                                                                                
$Test = 1;
                                                                                
1;


(test.pl):
use strict;
                                                                                
use PackVar;
                                                                                
print $Test,"\n";

which works fine. Note that the exported variables must be package and not lexical variables: you need to declare them in the module with use vars or our (or use the fully package qualified name) and not declare them with my.

However you really, really, really do want to think carefully about exporting variables like this even more than you do with subroutines as this constitutes a more serious pollution of the callers namespace with a higher risk of collision, unless you have absolutely no way around this you should use fully package qualified names (e.g. $PackVar::Test) in the caller and document this usage.

/J\

Alternatively, you could write your own get/set functions for the module.

let say I have a module

my @AoA = (
  #Array of Array Stuff
);

my %fundHash = (
 # Hash Stuff
);


# return array reference
sub return_AoA {
	return \@AoA;
}

# return hash reference
sub return_fundHash {
	return \%fundHash;
}

In my main program I will have

use perlMod;

my $AoA = perlMod::return_AoA();
my $fundHash = perlMod::return_fundHash();

And since you are passing by reference in this case, you will need to dereference in order to actually use the variable values...

my $toMail = $$AoA[$i][2] . "\@mail.host";

Tobin