不要害怕Perl中的 classes，它们只是包和模块，处理方式稍有不同。它们不会咬人。但是，你说没有类，那就没有类。
我不喜欢直接接触包变量，而是使用子例程来设置它们。
这是我的Local::Verbose（存储在Local/Verbose.pm下）

package Local::Verbose;

use strict;
use warnings;
use Exporter 'import';

# Could have used just '@EXPORT', but that's bad manners
our @EXPORT_OK = qw(verbose verbose_switch);

# Use "our", so $verbose_value is a package variable.
# This makes it survive between calls to this package

our $verbose_value;

# prints out message, but only if $verbose_value is set to non-blank/zero value
sub verbose {
    my $message = shift;

    if ( $verbose_value ) {
        print "VERBOSE: $message\n";
        return $message;
    }
    else {
        return;
    }
}

sub verbose_switch  {
    my $switch_value = shift;
    $verbose_value = $switch_value;
    return $switch_value;
}
1;

注意our，它使$verbose_value成为一个 package 变量，这意味着它在调用之间位于包的外部。
注意我是如何使用Exporter和@EXPORT_OK数组的。你可以使用@EXPORT，它会自动导出所有命名的子例程，但是现在它被认为是 * 不礼貌的 *，因为你可能最终覆盖了某人的同名本地子例程。最好把它显式化。如果有问题，他们可以使用详细子例程的Local::Verbose::verbose名称。
以及如何使用

use strict;
use warnings;

use Local::Verbose qw(verbose verbose_switch);

verbose ("This is a test");

verbose_switch(1);

verbose ("This is a second test");

顺便说一下，想象一下像这样调用verbose子例程：

verbose($message, $my_verbose_level);

现在，您的详细子例程可能如下所示：

sub verbose {
    my $message =       shift;
    my $verbose_level = shift;

    if (not defined $verbose) {
       $verbose_level = 1;
    }

    if ( $verbose_value =< $verbose_level ) {
        print "VERBOSE: $message\n";
        return $message;
    }
    else {
        return;
    }
}

现在，您可以将详细级别设置为不同的值，并让您的详细语句为您提供不同的详细级别。（我做了同样的事情，但将其命名为debug）。

“另一种方法”之一是创建一个import函数：

package Verbose;
my $verbose_on;
sub import {
    $verbose_on = shift;
}
#... Your code.

现在可以像这样设置详细信息：

if( ... ) { #check getopt
    use Verbose (1); #This will require package Verbose and call "import"
}

但是，我认为更简单和明显的进一步使用是做一个函数设置器。