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";
[download]

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; }
[download]

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; }
[download]