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..

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?"

Thank you greatly.