package S;

use strict;
use warnings;

our $x = 1;
[download]

And here is a script using S.pm

use strict;
use warnings;

use S;

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

Where's the export? Do you mean something besides "creates an entry in the caller's symbol table"?

I misunderstood then. Do you mean like...

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]

I hate this since it imports into the user's symbol table.. which I hate. I prefer my first answer since it's less prone to mucking up the user space.

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


Play that funky music white boy..

eureka!
(insert Archimedes running naked through the streets with joy.... or how about not, your call)

Thank you greatly.


jcpunk
---
all code is tested, and doesn't work so there :p (varient on common PM sig for my own ammusment)