Read the
Exporter manpage... here's a simple example:
package Ctweten::Export;
use Exporter;
our @ISA = qw(Exporter); # we now inherit from Exporter, namely the im
+port() method
our @EXPORT_OK = qw(this that); # you must ask for these: use Ctweten:
+:Export 'this';
our @EXPORT = qw(other); # exporter by default
sub this { print "Hello\n" }
*that = *other = *this;
In a program, if you want to use
this() and
other(), you do the following:
<code>
#!/usr/local/bin/perl -w
use strict;
$|++;
use Ctweten::Export qw(this);
other;
this;
that; # this would die under these circumstances.
--
Casey
I am a superhero.