模块循环使用。 Perl 中的编译错误

Question

有3个模块，所以它们按模式相互使用 a -> b -> c -> a。我无法编译这种情况。

例如，

我得到一个编译错误

"Throw" is not exported by the LIB::Common::Utils module
Can't continue after import errors at /root/bin/ppm/LIB/Common/EnvConfigMgr.pm line 13
BEGIN failed--compilation aborted at /root/bin/ppm/LIB/Common/EnvConfigMgr.pm line 13.

Utils.pm

use Exporter qw(import);
our @EXPORT_OK = qw(
        GetDirCheckSum
        AreDirsEqual
        onError
        Throw);
use LIB::Common::Logger::Log;

日志.pm

use Log::Log4perl;

use LIB::Common::EnvConfigMgr qw/Expand/;

EnvConfigMgr.pm

use Exporter qw(import);

our @EXPORT = qw(TransformShellVars ExpandString InitSearchLocations);
our @EXPORT_OK = qw(Expand);

use LIB::Common::Utils qw/Throw/;

为什么不编译以及如何使其工作？

Answer 1

你需要在依赖循环的某处使用require而不是use，以延迟绑定。使用不导出任何内容的模块最为方便，否则您需要编写显式的import 调用

在你的情况下LIB::Common::Logger::Log 不使用Export，所以放

require LIB::Common::Logger::Log

进入LIB/Common/Utils.pm 修复问题

您可以访问不工作的代码，并且只需显示故障代码即可为我们节省大量时间。你忽略了两个要求更多信息的 cmets，所以我已经设置了这些文件

请注意，这段代码什么都不做：它只是编译

LIB/Common/Utils.pm

package LIB::Common::Utils;

use Exporter 'import';

our @EXPORT_OK = qw/
    GetDirCheckSum
    AreDirsEqual
    onError
    Throw
/;

require LIB::Common::Logger::Log;

sub GetDirCheckSum { }

sub AreDirsEqual { }

sub onError { }

sub Throw { }

1;

LIB/Common/Logger/EnvConfigMgr.pm

package LIB::Common::EnvConfigMgr;

use Exporter 'import';

our @EXPORT = qw/ TransformShellVars ExpandString InitSearchLocations /;
our @EXPORT_OK = 'Expand';

use LIB::Common::Utils 'Throw';

sub TransformShellVars { }

sub ExpandString { }

sub InitSearchLocations { }

sub Expand { }

1;

LIB/Common/Logger/Log.pm

package LIB::Common::Logger::Log;

use Log::Log4perl;

use LIB::Common::EnvConfigMgr 'Expand';

1;

main.pl

use strict;
use warnings 'all';

use FindBin;
use lib $FindBin::Bin;

use LIB::Common::Utils;