{
    "mode": "perldoc",
    "parameter": "Pod::Simple::Debug",
    "section": "",
    "url": "https://www.chedong.com/phpMan.php/perldoc/Pod%3A%3ASimple%3A%3ADebug/json",
    "generated": "2026-06-03T17:16:41Z",
    "synopsis": "use Pod::Simple::Debug (5);  # or some integer\nOr:\nmy $debuglevel;\nuse Pod::Simple::Debug (\\$debuglevel, 0);\n...some stuff that uses Pod::Simple to do stuff, but which\nyou don't want debug output from...\n$debuglevel = 4;\n...some stuff that uses Pod::Simple to do stuff, but which\nyou DO want debug output from...\n$debuglevel = 0;",
    "sections": {
        "NAME": {
            "content": "Pod::Simple::Debug -- put Pod::Simple into trace/debug mode\n",
            "subsections": []
        },
        "SYNOPSIS": {
            "content": "use Pod::Simple::Debug (5);  # or some integer\n\nOr:\n\nmy $debuglevel;\nuse Pod::Simple::Debug (\\$debuglevel, 0);\n...some stuff that uses Pod::Simple to do stuff, but which\nyou don't want debug output from...\n\n$debuglevel = 4;\n...some stuff that uses Pod::Simple to do stuff, but which\nyou DO want debug output from...\n\n$debuglevel = 0;\n",
            "subsections": []
        },
        "DESCRIPTION": {
            "content": "This is an internal module for controlling the debug level (a.k.a. trace level) of Pod::Simple.\nThis is of interest only to Pod::Simple developers.\n",
            "subsections": []
        },
        "CAVEATS": {
            "content": "Note that you should load this module *before* loading Pod::Simple (or any Pod::Simple-based\nclass). If you try loading Pod::Simple::Debug after &Pod::Simple::DEBUG is already defined,\nPod::Simple::Debug will throw a fatal error to the effect that \"It's too late to call\nPod::Simple::Debug\".\n\nNote that the \"use Pod::Simple::Debug (\\$x, *somenum*)\" mode will make Pod::Simple (et al) run\nrather slower, since &Pod::Simple::DEBUG won't be a constant sub anymore, and so Pod::Simple (et\nal) won't compile with constant-folding.\n",
            "subsections": []
        },
        "GUTS": {
            "content": "Doing this:\n\nuse Pod::Simple::Debug (5);  # or some integer\n\nis basically equivalent to:\n\nBEGIN { sub Pod::Simple::DEBUG () {5} }  # or some integer\nuse Pod::Simple ();\n\nAnd this:\n\nuse Pod::Simple::Debug (\\$debuglevel,0);  # or some integer\n\nis basically equivalent to this:\n\nmy $debuglevel;\nBEGIN { $debuglevel = 0 }\nBEGIN { sub Pod::Simple::DEBUG () { $debuglevel }\nuse Pod::Simple ();\n",
            "subsections": []
        },
        "SEE ALSO": {
            "content": "Pod::Simple\n\nThe article \"Constants in Perl\", in *The Perl Journal* issue 21. See\n<http://interglacial.com/tpj/21/>\n",
            "subsections": []
        },
        "SUPPORT": {
            "content": "Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail\nlist. Send an empty email to pod-people-subscribe@perl.org to subscribe.\n\nThis module is managed in an open GitHub repository, <https://github.com/perl-pod/pod-simple/>.\nFeel free to fork and contribute, or to clone <git://github.com/perl-pod/pod-simple.git> and\nsend patches!\n\nPatches against Pod::Simple are welcome. Please send bug reports to\n<bug-pod-simple@rt.cpan.org>.\n",
            "subsections": []
        },
        "COPYRIGHT AND DISCLAIMERS": {
            "content": "Copyright (c) 2002 Sean M. Burke.\n\nThis library is free software; you can redistribute it and/or modify it under the same terms as\nPerl itself.\n\nThis program is distributed in the hope that it will be useful, but without any warranty;\nwithout even the implied warranty of merchantability or fitness for a particular purpose.\n",
            "subsections": []
        },
        "AUTHOR": {
            "content": "Pod::Simple was created by Sean M. Burke <sburke@cpan.org>. But don't bother him, he's retired.\n\nPod::Simple is maintained by:\n\n*   Allison Randal \"allison@perl.org\"\n\n*   Hans Dieter Pearcey \"hdp@cpan.org\"\n\n*   David E. Wheeler \"dwheeler@cpan.org\"\n",
            "subsections": []
        }
    },
    "summary": "Pod::Simple::Debug -- put Pod::Simple into trace/debug mode",
    "flags": [],
    "examples": [],
    "see_also": []
}