{
"content": [
{
"type": "text",
"text": "# Pod::Simple::Debug (perldoc)\n\n**Summary:** Pod::Simple::Debug -- put Pod::Simple into trace/debug mode\n\n**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;\n\n## Section Outline\n\n- **NAME** (2 lines)\n- **SYNOPSIS** (15 lines)\n- **DESCRIPTION** (3 lines)\n- **CAVEATS** (9 lines)\n- **GUTS** (20 lines)\n- **SEE ALSO** (5 lines)\n- **SUPPORT** (10 lines)\n- **COPYRIGHT AND DISCLAIMERS** (8 lines)\n- **AUTHOR** (10 lines)\n\n## Full Content\n\n### NAME\n\nPod::Simple::Debug -- put Pod::Simple into trace/debug mode\n\n### SYNOPSIS\n\nuse 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\n### DESCRIPTION\n\nThis 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\n### CAVEATS\n\nNote 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\n### GUTS\n\nDoing 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\n### SEE ALSO\n\nPod::Simple\n\nThe article \"Constants in Perl\", in *The Perl Journal* issue 21. See\n\n\n### SUPPORT\n\nQuestions 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, .\nFeel free to fork and contribute, or to clone and\nsend patches!\n\nPatches against Pod::Simple are welcome. Please send bug reports to\n.\n\n### COPYRIGHT AND DISCLAIMERS\n\nCopyright (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\n### AUTHOR\n\nPod::Simple was created by Sean M. Burke . 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\n"
}
],
"structuredContent": {
"command": "Pod::Simple::Debug",
"section": "",
"mode": "perldoc",
"summary": "Pod::Simple::Debug -- put Pod::Simple into trace/debug mode",
"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;",
"tldr_summary": null,
"tldr_examples": [],
"tldr_source": null,
"flags": [],
"examples": [],
"see_also": [],
"section_outline": [
{
"name": "NAME",
"lines": 2,
"subsections": []
},
{
"name": "SYNOPSIS",
"lines": 15,
"subsections": []
},
{
"name": "DESCRIPTION",
"lines": 3,
"subsections": []
},
{
"name": "CAVEATS",
"lines": 9,
"subsections": []
},
{
"name": "GUTS",
"lines": 20,
"subsections": []
},
{
"name": "SEE ALSO",
"lines": 5,
"subsections": []
},
{
"name": "SUPPORT",
"lines": 10,
"subsections": []
},
{
"name": "COPYRIGHT AND DISCLAIMERS",
"lines": 8,
"subsections": []
},
{
"name": "AUTHOR",
"lines": 10,
"subsections": []
}
],
"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\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, .\nFeel free to fork and contribute, or to clone and\nsend patches!\n\nPatches against Pod::Simple are welcome. Please send bug reports to\n.\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 . 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": []
}
}
}
}