# phpman > man > Pod::Simple::Debug

## NAME
    [Pod::Simple::Debug](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/markdown) -- put [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) into trace/debug mode

## SYNOPSIS
     use [Pod::Simple::Debug](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/markdown) (5);  # or some integer

    Or:

     my $debuglevel;
     use [Pod::Simple::Debug](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/markdown) (\$debuglevel, 0);
     ...some stuff that uses [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) to do stuff, but which
      you don't want debug output from...

     $debug_level = 4;
     ...some stuff that uses [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) to do stuff, but which
      you DO want debug output from...

     $debug_level = 0;

## DESCRIPTION
    This is an internal module for controlling the debug level (a.k.a. trace level) of [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown).
    This is of interest only to [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) developers.

## CAVEATS
    Note that you should load this module *before* loading [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) (or any [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown)-based
    class). If you try loading [Pod::Simple::Debug](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/markdown) after &[Pod::Simple::DEBUG](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADEBUG/markdown) is already defined,
    [Pod::Simple::Debug](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/markdown) will throw a fatal error to the effect that "It's too late to call
    [Pod::Simple::Debug](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/markdown)".

    Note that the "use [Pod::Simple::Debug](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/markdown) (\$x, *somenum*)" mode will make [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) (et al) run
    rather slower, since &[Pod::Simple::DEBUG](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADEBUG/markdown) won't be a constant sub anymore, and so [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) (et
    al) won't compile with constant-folding.

## GUTS
    Doing this:

      use [Pod::Simple::Debug](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/markdown) (5);  # or some integer

    is basically equivalent to:

      BEGIN { sub [Pod::Simple::DEBUG](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADEBUG/markdown) () {5} }  # or some integer
      use [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) ();

    And this:

      use [Pod::Simple::Debug](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/markdown) (\$debug_level,0);  # or some integer

    is basically equivalent to this:

      my $debug_level;
      BEGIN { $debug_level = 0 }
      BEGIN { sub [Pod::Simple::DEBUG](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADEBUG/markdown) () { $debug_level }
      use [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) ();

## SEE ALSO
    [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown)

    The article "Constants in Perl", in *The Perl Journal* issue 21. See
    <<http://interglacial.com/tpj/21/>>

## SUPPORT
    Questions or discussion about POD and [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) should be sent to the <pod-people@perl.org> mail
    list. Send an empty email to <pod-people-subscribe@perl.org> to subscribe.

    This module is managed in an open GitHub repository, <<https://github.com/perl-pod/pod-simple/>>.
    Feel free to fork and contribute, or to clone <git://github.com/perl-pod/pod-simple.git> and
    send patches!

    Patches against [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) are welcome. Please send bug reports to
    <<bug-pod-simple@rt.cpan.org>>.

## COPYRIGHT AND DISCLAIMERS
    Copyright (c) 2002 Sean M. Burke.

    This library is free software; you can redistribute it and/or modify it under the same terms as
    Perl itself.

    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.

## AUTHOR
    [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) was created by Sean M. Burke <<sburke@cpan.org>>. But don't bother him, he's retired.

    [Pod::Simple](https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple/markdown) is maintained by:

    *   Allison Randal "<allison@perl.org>"

    *   Hans Dieter Pearcey "<hdp@cpan.org>"

    *   David E. Wheeler "<dwheeler@cpan.org>"