S.pm....

package S;

use strict;
use warnings;
require Exporter;

@S::ISA = qw(Exporter);
@S::EXPORT = qw($x);

our $x = 1;
1;
[download]

And t.pl again..

use strict;
use warnings;

use S;

print $x;
print "\n";
[download]

Note: someone reply to my bad usage of @S::ISA. Someone prolly knows of a better way of doing this with strict on :)

Note: someone reply to my bad usage of @S::ISA. Someone prolly knows of a better way of doing this with strict on :)

Howabout (for perl 5.6.0 and up):

package S;
our @ISA = qw(Exporter);
[download]

Or use vars qw(@ISA) for older perls.

At least it doesn't make you type the package name, which is error prone, since it creates a new package if you spell it wrong.

Joost.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

In order to use an unqualified "$x" in the caller, I had to code the "S" (S.pm) module thus (The examples provided above gave Syntax errors):

package S;

use strict;
use warnings;
use Exporter; #"require" works too, but use is more std.

our @ISA = qw(Exporter);
our @EXPORT = qw($x);

our $x = 999;
1;
[download]

"When you are faced with a dilemma, might as well make dilemmanade. "