如何在Perl脚本中包含所有/部分“子模块”？

发布时间：2020-12-16 06:19:59 所属栏目：大数据来源：网络整理

导读：我刚才开始说我对创建Perl模块没有任何经验,所以如果我离开这里,我很抱歉. 假设我正在创建一些模块： foo::barfoo::bar::afoo::bar::b 因为我不知道它们叫什么,所以我称之为a.pm和b.pm模块“子模块”,因为它们与bar.pm模块有关,但仍然可能有些独立. 所以我的

我刚才开始说我对创建Perl模块没有任何经验,所以如果我离开这里,我很抱歉.

假设我正在创建一些模块：

foo::bar
foo::bar::a
foo::bar::b

因为我不知道它们叫什么,所以我称之为a.pm和b.pm模块“子模块”,因为它们与bar.pm模块有关,但仍然可能有些独立.

所以我的一个Perl脚本可以使用foo :: bar :: a,另一个脚本可以使用foo :: bar :: b,也许我有另一个脚本需要使用“a”和“b”中的函数.而不是这样说：

use foo::bar;
use foo::bar::a qw(one two);
use foo::bar::b;

我想做这样的事情：

use foo::bar qw(:a :b);

在我看来,这将使我的脚本可以访问bar.pm,a.pm和b.pm中的所有内容.

我测试了这样的东西,我显然是错的.

这样的事情可能吗？我想我可以使用bar.pm使用a.pm和b.pm,然后使用“包装”函数将调用传递给“子模块”,但似乎有一种更简单的方法.

解决方法

请查看我的 Test::Data模块,了解有关这样做的示例.即使你能实现它,我也从未如此喜欢这个结果.您可能想要考虑插件或Mixin方法. CPAN上有一些模块可以帮助解决这个问题.

这是我为Test :: Data编写的自定义导入：

sub import 
    {
    my $self   = shift;
    my $caller = caller;

    foreach my $package ( @_ )
        {
        my $full_package = "Test::Data::$package";
        eval "require $full_package; 1";
        if( $@ )
            {
            carp "Could not require Test::Data::$package: $@";
            }

        $full_package->export($caller);
        }

    }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!