No, you should use
[id://NUMBER] to link to other nodes. See
What shortcuts can I use for linking to other information?.
The preferred thing to export from a module is a subroutine. Or, alternatively, you can switch to the object oriented approach.
Shared.pm:
package Shared;
use warnings;
use strict;
use Exporter qw{ import };
our @EXPORT_OK = qw{ test_val test_list };
sub test_val { "hello world\n" }
sub test_list {
( [ 'Shadow', 'Blinky' ],
[ 'Speedy', 'Pinky' ],
[ 'Bashful', 'Inky' ],
[ 'Pokey', 'Clyde' ],
)
}
__PACKAGE__
test.pl:
#!/usr/bin/perl
use warnings;
use strict;
use Shared qw{ test_val test_list };
print test_val();
for my $pair (test_list()) {
print "@$pair\n";
}
Object oriented
Shared_OO.pm:
package Shared_OO;
use warnings;
use strict;
sub new {
my $class = shift;
bless { test_val => "hello world\n",
test_list => [ [ 'Shadow', 'Blinky' ],
[ 'Speedy', 'Pinky' ],
[ 'Bashful', 'Inky' ],
[ 'Pokey', 'Clyde' ],
],
}, $class
}
sub test_val { shift()->{test_val} }
sub test_list { @{ shift()->{test_list} } }
__PACKAGE__
test_oo.pl:
#!/usr/bin/perl
use warnings;
use strict;
use Shared_OO;
my $o = 'Shared_OO'->new;
print $o->test_val;
for my $pair ($o->test_list) {
print "@$pair\n";
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.