内容

名称

Pod::Simple::Debug -- 将 Pod::Simple 设置为跟踪/调试模式

概要

use Pod::Simple::Debug (5);  # or some integer

或者

my $debuglevel;
use Pod::Simple::Debug (\$debuglevel, 0);
...some stuff that uses Pod::Simple to do stuff, but which
 you don't want debug output from...

$debug_level = 4;
...some stuff that uses Pod::Simple to do stuff, but which
 you DO want debug output from...

$debug_level = 0;

描述

这是一个用于控制 Pod::Simple 调试级别（也称为跟踪级别）的内部模块。这仅对 Pod::Simple 开发人员有用。

注意事项

请注意，您应该在加载 Pod::Simple（或任何基于 Pod::Simple 的类）之前加载此模块。如果您尝试在 &Pod::Simple::DEBUG 已经定义后加载 Pod::Simple::Debug，Pod::Simple::Debug 将抛出一个致命错误，提示“现在调用 Pod::Simple::Debug 为时已晚”。

请注意，use Pod::Simple::Debug (\$x, somenum) 模式将使 Pod::Simple（等）运行得更慢，因为 &Pod::Simple::DEBUG 将不再是一个常量子程序，因此 Pod::Simple（等）将不会使用常量折叠进行编译。

内部机制

执行以下操作

use Pod::Simple::Debug (5);  # or some integer

基本上等同于

BEGIN { sub Pod::Simple::DEBUG () {5} }  # or some integer
use Pod::Simple ();

并且这

use Pod::Simple::Debug (\$debug_level,0);  # or some integer

基本上等同于这个

my $debug_level;
BEGIN { $debug_level = 0 }
BEGIN { sub Pod::Simple::DEBUG () { $debug_level }
use Pod::Simple ();

另请参阅

Pod::Simple

《Perl 中的常量》一文，刊登在《Perl 杂志》第 21 期。参见 http://interglacial.com/tpj/21/

支持

有关 POD 和 Pod::Simple 的问题或讨论，请发送到 [email protected] 邮件列表。发送空邮件到 [email protected] 订阅。

此模块在开放的 GitHub 仓库中进行管理，https://github.com/perl-pod/pod-simple/。欢迎您随意 fork 和贡献，或者克隆 git://github.com/perl-pod/pod-simple.git 并发送补丁！

欢迎您针对 Pod::Simple 发送补丁。请将错误报告发送到 <[email protected]>。

版权和免责声明

版权所有 (c) 2002 Sean M. Burke。

此库是自由软件；您可以根据与 Perl 本身相同的条款重新发布和/或修改它。

此程序按“现状”提供，不附带任何形式的明示或暗示的担保，包括但不限于适销性和特定用途适用性的默示担保。

作者

Pod::Simple 由 Sean M. Burke <[email protected]> 创建。但不要打扰他，他已经退休了。

Pod::Simple 由以下人员维护：