无需重构，如何让被use的Perl模块Z保留调用模块专属状态？

以下为简化示例，非实际场景。

当前我有一个工具模块（命名为Z），它声明了若干函数，并通过变量Print维护状态：

package Z;

use strict;
use warnings;

use feature qw(say);

our $Print;

sub test {
    say @_ if $Print;
}

1;

设计该模块的目的是让调用它的模块可以控制内容打印的开关。

由于是工具模块，Z被多个模块调用，例如模块X不需要打印，模块Y需要打印：

package X;

use strict;
use warnings;

use Z;

$Z::Print = 0; # 将Z::Print设为0

sub f {
    Z::test(@_);
}

1;

package Y;

use strict;
use warnings;

use Z;

$Z::Print = 1; # 将Z::Print设为1

sub f {
    Z::test(@_);
}

1;

当X和Y同时被同一个脚本调用时，会出现问题：Y会全局修改Z::Print的值，干扰X的行为：

#!/usr/bin/env perl

# test.pl

use strict;
use warnings;

use X;
use Y;

my $v = 0;

X::f($v);
Y::f($v);

user@server ~/[REDACTED] (git)-[REDACTED] % ./test.pl
0 # X意外打印了内容
0 # Y正常打印了内容

实际场景中，依赖Z的模块约有10个，这些模块要么是包含多个方法的类，要么是函数集合；其中大多数方法/函数都依赖Z的功能。

• 我知道可以（也应该）将Z重构为类，在X和Y中实例化本地副本，但目前这样做工作量太大，暂不可行；
• 在X和Y中维护状态变量以控制Z的行为也可行，但同样需要对Z的函数进行大量重构，暂不可行；
• 我正在寻找上述方案之外的替代快速解决方案（如果存在的话），尽管我知道调整设计才是“正确”的方案；
• 我清楚这可能是当初的设计失误，但目前只能在此基础上寻求至少是临时的简便解决方案。

临时方案1：使用local实现局部状态隔离 #

利用Perl的local关键字，在调用Z的函数时临时修改$Z::Print，该修改仅在当前作用域内生效，退出后自动恢复原值。无需修改Z模块，仅需调整调用模块的函数：

修改X模块：

package X;

use strict;
use warnings;

use Z;

sub f {
    local $Z::Print = 0; # 仅在f()的执行周期内生效
    Z::test(@_);
}

1;

修改Y模块：

package Y;

use strict;
use warnings;

use Z;

sub f {
    local $Z::Print = 1; # 仅在f()的执行周期内生效
    Z::test(@_);
}

1;

此方案改动最小，每个模块的状态仅在自身函数作用域内生效，不会互相干扰。

临时方案2：为Z添加命名空间级状态存储 #

轻微修改Z模块，用哈希表存储不同调用模块的状态，避免全局变量冲突：

修改Z模块：

package Z;

use strict;
use warnings;
use feature qw(say);

# 存储不同命名空间的打印状态，默认关闭
my %namespace_print;

our $Print;

# 重载$Print的存取逻辑，自动识别调用者命名空间
BEGIN {
    *Z::Print = sub :lvalue {
        my $caller = caller();
        if (@_) {
            $namespace_print{$caller} = $_[0];
        }
        # 未设置时返回全局默认值
        return exists $namespace_print{$caller} ? $namespace_print{$caller} : $Z::Print;
    };
}

sub test {
    say @_ if $Print;
}

1;

调用模块无需修改原有代码，$Z::Print的赋值会自动绑定到当前模块的命名空间，X和Y的设置互不影响。

临时方案3：包装Z模块提供隔离接口 #

创建一个包装模块，为每个调用模块提供独立的状态和接口，无需修改Z模块：

package ZWrapper;

use strict;
use warnings;
use Z;

# 存储每个模块的状态
my %module_states;

sub import {
    my ($class, $caller) = @_;
    # 初始化默认状态
    $module_states{$caller} //= { print => 0 };

    # 导出包装后的函数到调用模块
    no strict 'refs';
    *{"${caller}::z_test"} = sub {
        local $Z::Print = $module_states{$caller}{print};
        Z::test(@_);
    };
    *{"${caller}::z_set_print"} = sub {
        $module_states{$caller}{print} = $_[0];
    };
}

1;

X模块使用方式：

package X;

use strict;
use warnings;
use ZWrapper __PACKAGE__;

z_set_print(0);

sub f {
    z_test(@_);
}

1;

Y模块使用方式：

package Y;

use strict;
use warnings;
use ZWrapper __PACKAGE__;

z_set_print(1);

sub f {
    z_test(@_);
}

1;

此方案将Z的调用统一到包装接口，每个模块拥有独立状态，无需修改Z的内部逻辑。

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