use one qw (one two three five);
use two qw (one two four);
print join("\n", @one::EXPORT), "\n";
sub get_exports
{
my $package = shift or die;
my @list = (@{$package . "::EXPORT"}, @{$package . "::EXPORT_OK"});
for my $name (@list) {
my $symbol = $package . '::' . $name, " ", "\n";
if (\&{$symbol} == \&{$name}) {
print "$name is imported from $package (function)\n";
}
}
}
get_exports('one');
print "\n";
get_exports('two')
print"\n";
print join(' ', one, two, three, four), "\n";
####
package one;
use base Exporter;
our @EXPORT = qw (one two);
our @EXPORT_OK = qw (three four five);
sub one { 1.1; }
sub two { 1.2; }
sub three { 1.3; }
sub four { 1.4; }
sub five { 1.5; }
##
##
package two;
use base Exporter;
our @EXPORT = qw (one two);
our @EXPORT_OK = qw (three four);
sub one { 2.1; }
sub two { 2.2; }
sub three { 2.3; }
sub four { 2.4; }