1 .\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.3
4 .\" ========================================================================
5 .de Sh \" Subsection heading
13 .de Sp \" Vertical space (when we can't use .PP)
17 .de Vb \" Begin verbatim text
22 .de Ve \" End verbatim text
26 .\" Set up some character translations and predefined strings. \*(-- will
27 .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
28 .\" double quote, and \*(R" will give a right double quote. | will give a
29 .\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30 .\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
31 .\" expand to `' in nroff, nothing in troff, for use with C<>.
33 .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
37 . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
38 . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
51 .\" If the F register is turned on, we'll generate index entries on stderr for
52 .\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53 .\" entries marked with X<> in POD. Of course, you'll have to process the
54 .\" output yourself in some meaningful fashion.
57 . tm Index:\\$1\t\\n%\t"\\$2"
63 .\" For nroff, turn off justification. Always turn off hyphenation; it makes
64 .\" way too many mistakes in technical documents.
68 .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69 .\" Fear. Run. Save yourself. No user-serviceable parts.
70 . \" fudge factors for nroff and troff
79 . ds #H ((1u-(\\\\n(.fu%2u))*.13m)
85 . \" simple accents for nroff and troff
95 . ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
96 . ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
97 . ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
98 . ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
99 . ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
100 . ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
102 . \" troff and (daisy-wheel) nroff accents
103 .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
104 .ds 8 \h'\*(#H'\(*b\h'-\*(#H'
105 .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
106 .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
107 .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
108 .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
109 .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
110 .ds ae a\h'-(\w'a'u*4/10)'e
111 .ds Ae A\h'-(\w'A'u*4/10)'E
112 . \" corrections for vroff
113 .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
114 .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
115 . \" for low resolution devices (crt and lpr)
116 .if \n(.H>23 .if \n(.V>19 \
129 .\" ========================================================================
131 .IX Title "Pod::Simple::Debug 3"
132 .TH Pod::Simple::Debug 3 "2009-10-26" "perl v5.8.7" "User Contributed Perl Documentation"
134 Pod::Simple::Debug \-\- put Pod::Simple into trace/debug mode
136 .IX Header "SYNOPSIS"
138 \& use Pod::Simple::Debug (5); # or some integer
145 \& use Pod::Simple::Debug (\e$debuglevel, 0);
146 \& ...some stuff that uses Pod::Simple to do stuff, but which
147 \& you don't want debug output from...
152 \& ...some stuff that uses Pod::Simple to do stuff, but which
153 \& you DO want debug output from...
160 .IX Header "DESCRIPTION"
161 This is an internal module for controlling the debug level (a.k.a. trace
162 level) of Pod::Simple. This is of interest only to Pod::Simple
166 Note that you should load this module \fIbefore\fR loading Pod::Simple (or
167 any Pod::Simple\-based class). If you try loading Pod::Simple::Debug
168 after &Pod::Simple::DEBUG is already defined, Pod::Simple::Debug will
169 throw a fatal error to the effect that
170 \&\*(L"it's s too late to call Pod::Simple::Debug\*(R".
172 Note that the \f(CW\*(C`use Pod::Simple::Debug (\e$x, \f(CIsomenum\f(CW)\*(C'\fR mode will make
173 Pod::Simple (et al) run rather slower, since &Pod::Simple::DEBUG won't
174 be a constant sub anymore, and so Pod::Simple (et al) won't compile with
181 \& use Pod::Simple::Debug (5); # or some integer
184 is basically equivalent to:
187 \& BEGIN { sub Pod::Simple::DEBUG () {5} } # or some integer
188 \& use Pod::Simple ();
194 \& use Pod::Simple::Debug (\e$debug_level,0); # or some integer
197 is basically equivalent to this:
201 \& BEGIN { $debug_level = 0 }
202 \& BEGIN { sub Pod::Simple::DEBUG () { $debug_level }
203 \& use Pod::Simple ();
206 .IX Header "SEE ALSO"
209 The article \*(L"Constants in Perl\*(R", in \fIThe Perl Journal\fR issue
210 21. See <http://interglacial.com/tpj/21/>
211 .SH "COPYRIGHT AND DISCLAIMERS"
212 .IX Header "COPYRIGHT AND DISCLAIMERS"
213 Copyright (c) 2002 Sean M. Burke. All rights reserved.
215 This library is free software; you can redistribute it and/or modify it
216 under the same terms as Perl itself.
218 This program is distributed in the hope that it will be useful, but
219 without any warranty; without even the implied warranty of
220 merchantability or fitness for a particular purpose.
223 Sean M. Burke \f(CW\*(C`sburke@cpan.org\*(C'\fR