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

Question

我刚才开始说我对创建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,然后使用"包装"函数将调用传递给"子模块",但似乎有一种更简单的方法.

Answer 1

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

这import是我为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);
        }

    }