将Perl模块从@EXPORT迁移至@EXPORT_OK后，如何恢复批量导入功能？

在MyAnimals.pm中通过自定义import方法结合%EXPORT_TAGS，既能恢复原有的批量全量导入功能，又能保留子模块的按需导入特性，具体实现如下：

package MyAnimals;
use strict;
use warnings;
use Exporter qw(import);
use MyAnimals::Cats;
use MyAnimals::Dogs;

# 定义导出标签，关联子模块的可导出符号列表
our %EXPORT_TAGS = (
    Cats => [ @MyAnimals::Cats::EXPORT_OK ],
    Dogs => [ @MyAnimals::Dogs::EXPORT_OK ],
);

# 合并所有子模块的可导出符号，支持单独导入单个函数
our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;

# 自定义import逻辑，处理批量全量导入请求
sub import {
    my $class = shift;
    my @args = @_;

    my @remaining_args;
    foreach my $arg (@args) {
        if ($arg eq 'Cats') {
            MyAnimals::Cats->import(':all');
        } elsif ($arg eq 'Dogs') {
            MyAnimals::Dogs->import(':all');
        } else {
            push @remaining_args, $arg;
        }
    }

    # 处理剩余的单独符号或标签导入请求
    $class->SUPER::import(@remaining_args) if @remaining_args;
}

1;

关键逻辑说明 #

• %EXPORT_TAGS定义：将Cats/Dogs标签映射到对应子模块的@EXPORT_OK列表，兼容Exporter标准标签语法（如use MyAnimals qw(:Cats)）。
• @EXPORT_OK合并：把子模块所有可导出符号汇总到主模块，支持用户单独导入某个子模块的特定函数（如use MyAnimals qw(cat_speak dog_sleep)）。
• 自定义import方法：拦截用户传入的Cats/Dogs参数，直接触发对应子模块的全量导入，同时保留对普通符号和标签的处理逻辑。

验证用法 #

1. 恢复原批量全量导入功能：

use MyAnimals qw(Cats Dogs);
# 可直接调用两个子模块的所有函数
cat_speak();
dog_wag_tail();

2. 单独导入子模块全量：

use MyAnimals qw(:Dogs); # 等效于use MyAnimals::Dogs qw(:all)

3. 按需导入单个函数：

use MyAnimals qw(cat_purr dog_sleep);

内容的提问来源于stack exchange，提问作者MERM