distrib/lib/perl5db.pl

253 call to C<&DB::postponed($main::{'_<'.$filename})> is done. C<$filename>
446 =head4 C<%postponed>
705 #     the deletion of data may be postponed until the next function call,
1393     %postponed     = get_list("PERLDB_POSTPONE");
2712                         # is in a postponed file (we'll do postponed ones
2765                                 $postponed{$found} =
2777                     set_list("PERLDB_POSTPONE",  %postponed);
3917     # necessary condition in the %postponed hash.
3936         $postponed{$subname} = $break ? "break +0 if $cond" : "compile";
4421 We then wholesale delete C<%postponed>, C<%postponed_file>, and
4480         undef %postponed;
4788 out. We look through C<%postponed> not-yet-compiled subroutines that have
4853     if (%postponed and $break_wanted) {
4856         for $subname (keys %postponed) {
4857             print $OUT " $subname\t$postponed{$subname}\n";
4860     } ## end if (%postponed and $break_wanted)
5141 Handles setting postponed breakpoints in subroutines once they're compiled.
5146 we set the breakpoint on it, deleting the breakpoint from C<%postponed>.
5157     if ($postponed{$subname} =~ s/^break\s([+-]?\d+)\s+if\s//) {
5166             # $postponed{subname}.
5185             # Copy the breakpoint in and delete it from %postponed.
5186             $dbline{$i} = delete $postponed{$subname};
5195     } ## end if ($postponed{$subname...
5196     elsif ($postponed{$subname} eq 'compile') { $signal = 1 }
5201 =head2 C<postponed>
5205 C<%postponed>. Propagates saved breakpoints (from C<b compile>, C<b load>,
5215 sub postponed {
5260 } ## end sub postponed
7717 =item * The list of postponed (XXX define) items and the C<$single> stack
7778     @postponed = @stack = (0);
8265     # necessary condition in the %postponed hash.
8285         $postponed{$subname} = $break ? "break +0 if $cond" : "compile";
8348         undef %postponed;