目錄

名稱

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

The Perl Journal 第 21 期中的「Perl 中的常數」一文。請參閱 http://interglacial.com/tpj/21/

支援

關於 POD 和 Pod::Simple 的問題或討論應寄送至 pod-people@perl.org 郵件清單。寄送一封空白電子郵件至 pod-people-subscribe@perl.org 以訂閱。

此模組在開放的 GitHub 儲存庫 https://github.com/perl-pod/pod-simple/ 中進行管理。歡迎分岔和貢獻，或複製 git://github.com/perl-pod/pod-simple.git 並傳送修補程式！

歡迎針對 Pod::Simple 提出修補程式。請將錯誤報告寄送至 <bug-pod-simple@rt.cpan.org>。

著作權和免責聲明

著作權 (c) 2002 Sean M. Burke。

此函式庫為免費軟體；您可以在與 Perl 相同的條款下重新散布或修改它。

此程式散布的用意在於希望它對您有幫助，但沒有任何擔保；甚至沒有對適銷性或特定用途適用性的默示擔保。

作者

Pod::Simple 由 Sean M. Burke <sburke@cpan.org> 所建立。但是請不要打擾他，他已經退休了。

Pod::Simple 由下列人員維護