exporting vars

b888 has asked for the wisdom of the Perl Monks concerning the following question:

Greetings all.

I'm trying to export some variables from module. While using filename same as package all seems ok.

file 'A.pm'

package A;
use strict;
BEGIN {
  use Exporter();
  use vars qw(@EXPORT @ISA);
  @EXPORT = qw($var1);
  @ISA = qw(Exporter);
}
use vars @EXPORT;
$var1 = "1";
[download]

file 'B.pl'

#!/usr/bin/perl
package B;
use strict;
use A;
print "$var1\n";
[download]

But when i'm trying to use package name that differs form filename, strict raises an error.

file 'A1.pm'

package A;
...
[download]

file 'B.pl'

...
use A1;
...
[download]

Is this perl problem, or i'm doing something wrong?

Comment on exporting vars Select or Download Code

Replies are listed 'Best First'.

Re: exporting vars
by PodMaster (Abbot) on Nov 08, 2004 at 11:59 UTC

perldoc -f use

perldoc -f import

Tutorials

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

[reply]

Re: exporting vars
by Thelonius (Priest) on Nov 08, 2004 at 12:39 UTC

BEGIN {require A1; import A;}
[download]

[reply]
[d/l]

Re: exporting vars
by fergal (Chaplain) on Nov 08, 2004 at 13:36 UTC

use A;

A->import

package A1;

sub import
{
  A->export_to_level(1, @_);
}
[download]

Exporter

A quick plug for one of my modules. Exporter::Easy lets you write

BEGIN {
  use Exporter();
  use vars qw(@EXPORT @ISA);
  @EXPORT = qw($var1);
  @ISA = qw(Exporter);
}
use vars @EXPORT;
$var1 = "1";
[download]

use Exporter::Easiest q( EXPORT => $var1 );
$var1 = "1";
[download]

Exporter

[reply]
[d/l]
[select]


Just another Perl shrine
	PerlMonks