在Perl中使用导出器的多个包

我正在努力熟悉Perl导出器,我面临的问题是我尝试的任何东西我都不能使用导出器和包含多个包的模块.我在下面想念的是什么？ @H_355_2@mymodule.pm use Strict; use warnings; package Multipackage1; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(test1); sub test1 { print "First package\n"; } 1; package Multipackage2; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(test2); sub test2 { print "Second package\n"; } 1; package Multipackage3; use Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(test3); sub test3 { print "Third package\n"; } 1; MymainFile.pl #!/usr/bin/perl use Strict; use warnings; use Multipackage; use Multipackage qw(test3); print "Calling first package:\n"; test1(); print "Calling second package:\n"; test2(); print "Calling third package:\n"; test3();

我得到test1不是主包的一部分.

提前致谢.

use warnings;
use Strict;

require Mymodule;

import Multipackage1;
import Multipackage2;
import Multipackage3 qw(test3);

print "Calling first package:\n";
test1();
print "Calling second package:\n";
test2();
print "Calling third package:\n";
test3();

Calling first package:
First package
Calling second package:
Second package
Calling third package:
Third package

use Strict;
use warnings;

package Multipackage1 {
    use Exporter qw(import);
    our @EXPORT = qw(test1);

    sub test1 { print "First package\n" }
}
...
1;