Re: Re: Our Across Multiple Files?

test.pl
---
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw($bar);

use Blah qw($bar);

$bar = 4;

Blah::test();


Blah.pm
-----
package Blah;
sub test {print $bar};
1;
[download]

That doesn't work. I tried a few variations, but that one seemed the most correct based on the docs.

Comment on Re: Re: Our Across Multiple Files? Download Code

Replies are listed 'Best First'.
Re: Re: Re: Our Across Multiple Files? by davorg (Chancellor) on Dec 17, 2001 at 21:05 UTC
`test.pl --- #!/usr/bin/perl -w use strict; use Blah qw($bar test); $bar = 4; test(); Blah.pm ----- use strict; package Blah; require Exporter; use vars qw(@ISA @EXPORT_OK $bar); @ISA = qw(Exporter); @EXPORT_OK = qw($bar test); sub test {print $bar}; 1;` [download] -- <http://www.dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Our Across Multiple Files?
by davorg (Chancellor) on Dec 17, 2001 at 21:05 UTC

test.pl
---
#!/usr/bin/perl -w
use strict;

use Blah qw($bar test);

$bar = 4;

test();



Blah.pm
-----
use strict;
package Blah;
require Exporter;
use vars qw(@ISA @EXPORT_OK $bar);
@ISA = qw(Exporter);
@EXPORT_OK = qw($bar test);

sub test {print $bar};
1;
[download]

http://www.dave.org.uk

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

[reply]
[d/l]