Lines Matching full:simple

1 package Pod::Simple::Debug;
20       Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
21                 . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
25     Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
26                     . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
29   if( defined &Pod::Simple::DEBUG ) {
31     Carp::croak("It's too late to call Pod::Simple::Debug -- "
32               . "Pod::Simple has already loaded\nAborting");
40             . "\nUsage:\n use Pod::Simple::Debug (NUMVAL)\nor"
41                     . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
46     *Pod::Simple::DEBUG = sub () { $$variable } ;
48     print STDERR "# Starting Pod::Simple::DEBUG = non-constant $variable with val $value\n";
50     *Pod::Simple::DEBUG = eval " sub () { $value } ";
51     print STDERR "# Starting Pod::Simple::DEBUG = $value\n";
54   require Pod::Simple;
65 Pod::Simple::Debug -- put Pod::Simple into trace/debug mode
69  use Pod::Simple::Debug (5);  # or some integer
74  use Pod::Simple::Debug (\$debuglevel, 0);
75  ...some stuff that uses Pod::Simple to do stuff, but which
79  ...some stuff that uses Pod::Simple to do stuff, but which
87 level) of Pod::Simple.  This is of interest only to Pod::Simple
93 Note that you should load this module I<before> loading Pod::Simple (or
94 any Pod::Simple-based class).  If you try loading Pod::Simple::Debug
95 after &Pod::Simple::DEBUG is already defined, Pod::Simple::Debug will
97 "It's too late to call Pod::Simple::Debug".
99 Note that the C<use Pod::Simple::Debug (\$x, I<somenum>)> mode will make
100 Pod::Simple (et al) run rather slower, since &Pod::Simple::DEBUG won't
101 be a constant sub anymore, and so Pod::Simple (et al) won't compile with
109   use Pod::Simple::Debug (5);  # or some integer
113   BEGIN { sub Pod::Simple::DEBUG () {5} }  # or some integer
114   use Pod::Simple ();
118   use Pod::Simple::Debug (\$debug_level,0);  # or some integer
124   BEGIN { sub Pod::Simple::DEBUG () { $debug_level }
125   use Pod::Simple ();
129 L<Pod::Simple>
136 Questions or discussion about POD and Pod::Simple should be sent to the
141 L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
142 to clone L<https://github.com/perl-pod/pod-simple.git> and send patches!
144 Patches against Pod::Simple are welcome. Please send bug reports to
145 <bug-pod-simple@rt.cpan.org>.
160 Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
163 Pod::Simple is maintained by: