```{index} single: DumpProg; Devel::Peek function ``` ```{index} single: Devel::Peek::DumpProg; Perl function ``` # DumpProg Dump the program's main op tree. A compiler-debugging tool, not a value-inspection tool. `DumpProg()` writes the current value of `PL_dumpindent` as a warning and then, if `PL_main_root` is populated, walks the tree rooted there. Aimed at people working on Perl's own compiler pipeline; regular scripts have no reason to call it. Under pperl the op-tree walk reports only the indent header, since `PL_main_root` is not wired through the XS surface yet.