Edit D:\app\Administrator\product\11.2.0\dbhome_1\perl\html\lib\Pod\Simple\Debug.html
<?xml version="1.0" ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>Pod::Simple::Debug -- put Pod::Simple into trace/debug mode</title> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rev="made" href="mailto:" /> </head> <body style="background-color: white"> <table border="0" width="100%" cellspacing="0" cellpadding="3"> <tr><td class="block" style="background-color: #cccccc" valign="middle"> <big><strong><span class="block"> Pod::Simple::Debug -- put Pod::Simple into trace/debug mode</span></strong></big> </td></tr> </table> <!-- INDEX BEGIN --> <div name="index"> <p><a name="__index__"></a></p> <ul> <li><a href="#name">NAME</a></li> <li><a href="#synopsis">SYNOPSIS</a></li> <li><a href="#description">DESCRIPTION</a></li> <li><a href="#caveats">CAVEATS</a></li> <li><a href="#guts">GUTS</a></li> <li><a href="#see_also">SEE ALSO</a></li> <li><a href="#copyright_and_disclaimers">COPYRIGHT AND DISCLAIMERS</a></li> <li><a href="#author">AUTHOR</a></li> </ul> <hr name="index" /> </div> <!-- INDEX END --> <p> </p> <h1><a name="name">NAME</a></h1> <p>Pod::Simple::Debug -- put Pod::Simple into trace/debug mode</p> <p> </p> <hr /> <h1><a name="synopsis">SYNOPSIS</a></h1> <pre> use Pod::Simple::Debug (5); # or some integer</pre> <p>Or:</p> <pre> 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...</pre> <pre> $debug_level = 4; ...some stuff that uses Pod::Simple to do stuff, but which you DO want debug output from...</pre> <pre> $debug_level = 0;</pre> <p> </p> <hr /> <h1><a name="description">DESCRIPTION</a></h1> <p>This is an internal module for controlling the debug level (a.k.a. trace level) of Pod::Simple. This is of interest only to Pod::Simple developers.</p> <p> </p> <hr /> <h1><a name="caveats">CAVEATS</a></h1> <p>Note that you should load this module <em>before</em> loading Pod::Simple (or any Pod::Simple-based class). If you try loading Pod::Simple::Debug after &Pod::Simple::DEBUG is already defined, Pod::Simple::Debug will throw a fatal error to the effect that "it's s too late to call Pod::Simple::Debug".</p> <p>Note that the <code>use Pod::Simple::Debug (\$x, somenum)</code> mode will make Pod::Simple (et al) run rather slower, since &Pod::Simple::DEBUG won't be a constant sub anymore, and so Pod::Simple (et al) won't compile with constant-folding.</p> <p> </p> <hr /> <h1><a name="guts">GUTS</a></h1> <p>Doing this:</p> <pre> use Pod::Simple::Debug (5); # or some integer</pre> <p>is basically equivalent to:</p> <pre> BEGIN { sub Pod::Simple::DEBUG () {5} } # or some integer use Pod::Simple ();</pre> <p>And this:</p> <pre> use Pod::Simple::Debug (\$debug_level,0); # or some integer</pre> <p>is basically equivalent to this:</p> <pre> my $debug_level; BEGIN { $debug_level = 0 } BEGIN { sub Pod::Simple::DEBUG () { $debug_level } use Pod::Simple ();</pre> <p> </p> <hr /> <h1><a name="see_also">SEE ALSO</a></h1> <p><a href="file://C|\ADE\aime_smenon_perl_090715\perl\html/lib/Pod/Simple.html">the Pod::Simple manpage</a></p> <p>The article "Constants in Perl", in <em>The Perl Journal</em> issue 21. See <a href="http://www.sysadminmag.com/tpj/issues/vol5_5/">http://www.sysadminmag.com/tpj/issues/vol5_5/</a></p> <p> </p> <hr /> <h1><a name="copyright_and_disclaimers">COPYRIGHT AND DISCLAIMERS</a></h1> <p>Copyright (c) 2002 Sean M. Burke. All rights reserved.</p> <p>This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.</p> <p>This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.</p> <p> </p> <hr /> <h1><a name="author">AUTHOR</a></h1> <p>Sean M. Burke <code>sburke@cpan.org</code></p> <table border="0" width="100%" cellspacing="0" cellpadding="3"> <tr><td class="block" style="background-color: #cccccc" valign="middle"> <big><strong><span class="block"> Pod::Simple::Debug -- put Pod::Simple into trace/debug mode</span></strong></big> </td></tr> </table> </body> </html>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de