Perl 封装变量而不使用我们的答案

【问题标题】：Perl package variables without using ourPerl 封装变量而不使用我们的
【发布时间】：2015-11-11 19:03:16
【问题描述】：

是否可以不使用我们的设置包变量。

这是一个比文字更能解释案例的代码示例：

package A::B::C;

use strict;
use warnings;
use Exporter ();
our @ISA = qw/Exporter/;
our @EXPORT = ();
our @EXPORT_OK = qw/INFO/;
our %EXPORT_TAGS = (
    default => [qw/INFO/]
);
Exporter::export_ok_tags("default");

BEGIN {
    $C::verbose = 0;
}

sub INFO {
    my $msg = shift;

    if ($C::verbose) {
        print("$msg\n");
    }
}

从使用包 A::B::C 的脚本中设置变量 $verbose 不会更改包中 $verbose 的值：

use A::B::C;

$A::B::C::verbose = 1;

我完全知道在包中使用“我们的”可以解决问题，但我更想知道发生了什么以及为什么无法从使用包 A::B 的脚本中设置变量 $verbose ：：C。甚至更好的是，仅在包子例程中使用（而不是正式声明）的包变量会发生什么情况；他们得到什么范围？

【问题讨论】：

标签： perl package scoping

【解决方案1】：

您需要引用正确的包名称：$verbose 不在包 C 中，而是在 A::B::C 中。因此，以下工作按预期工作：

BEGIN {
    $A::B::C::verbose = 0; # Changed
}

sub INFO {
    my $msg = shift;

    if ($A::B::C::verbose) { # Changed
        print("$msg\n");
    }
}

【讨论】：