19 a number of reasons for this, many stemming out of the debugger's history.
163 Send in a patch if you can clear up, fill out, or clarify an C<XXX>.
235  &parse_options("NonStop=1 LineInfo=db.out");
239 information into C<db.out>.  (If you interrupt it, you had better
296 =item * 4 - Extended messages: C<in|out> I<context>=I<fully-qualified sub name> from I<file>:I<line>>. If no other flag is on, acts like 1+4.
310 Tracks current debugger nesting level. Used to figure out how many 
897 #   + watch val joined out of eval()
974 # This was an attempt to clear out the previous values of various
989 The debugger's options are actually spread out over the debugger itself and 
1209 Child debuggers make a label out of the current PID structure recorded in
1220     # We're a child. Make us a label out of the current PID structure
1323 # If the PERLDB_OPTS variable has options in it, parse those out next.
1547 The debugger is capable of opening a socket and carrying out a debugging
1598             # read/write/create/clobber out, or write/create/clobber out,
1665     # Make sure backslashes before single quotes are stripped out, and
1735     # figure out where we last were executing. Sneaky, eh? This works because
1901 next executable line, print that out, build the prompt from the file and line
1942                 # Drop out on null statements, block closers, and comments.
1945                 # Drop out if the user interrupted us.
2077 command out of C<$laststep> (where it was recorded previously), and copy it
2135 try to execute further, cleaning any restart-related stuff out of the
2199 Uses C<dumpvar.pl> to dump out the current values for selected variables. 
2481                     # Get out and restart the command loop if program
2516                     # out, we'll just leave that to speculation for now.
2600 appropriately, and force us out of the command loop.
2648                     # out of it (except for the first one, which is going
2711                         # Skip out if it doesn't exist, or if the breakpoint
2841 We take the argument and treat it as a pattern. If it turns out to be a 
3005                     # Pick out the command desired.
3178                             # Nope. Bad alias. Say so and get out.
3238 Note that all C<^(save|source)>'s are commented out with a view to minimise recursion.
3311                     # Save current filehandle, unbuffer out, and put it back.
3465 again. Once control returns, C<DB::sub> figures out whether or not to dump the
3599                 print_lineinfo(' ' x $stack_depth, "out "),
3647                 print_lineinfo(' ' x $stack_depth, "out "),
3828     # we print $@ and get out.
4375     # If there is one, use it if it's non-zero, or wipe it out if it is.
4409 just drop out with a message saying so. If it is, we remove the condition
4541             # It's there; pull it out and print it.
4765                 # Move on to the next line. Drop out on an interrupt.
4788 out. We look through C<%postponed> not-yet-compiled subroutines that have 
4832                     # Pull out the condition and the action.
4959 to do the actual listing after figuring out the range of line to request.
5349 C<dump_trace> routine, which actually does all the ferreting-out of the
5394         # Drop out if the user has lost interest and hit control-C.
5493     # Start out at the skip count.
5496     # number of stack frames, or we run out - caller() returns nothing - we
5893 my $out = shift;
5894 open OUT, ">&=$out" or die "Cannot open &=$out for writing: $!";
5989 isn't any list yet, we make one up out of the initial pid associated with 
6053     # Pull a line out of the typeahead if there's stuff there.
6339 back, and then pull VAR_0, VAR_1. etc. back out.
6452         my ($in, $out) = shift; 
6455             ($in, $out) = split /,/, $in, 2;
6459             $out = $in;
6464         open OUT, ">$out" or die "cannot open `$out' for write: $!";
7192         # Nope, set to more. See what's out there.
7462 reference is stringified, it'll come out as "SOMETHING(0X...)").
7533     # Figure out the class - either this is the class or it's a reference
7596 =head2 C<setman> - figure out which command to use to show documentation
7834 =item * C<grep> out the ones that match the text we have so far
7917 out of C<%main::>, add the initial source file, and extract the ones that 
7965 =item * Figure out the prefix vs. what needs completing.
7974 =item * Look through all the symbols in the package. C<grep> out all the possible hashes/arrays/scalars, and then C<grep> the possible matches out of those. C<map> the prefix onto all the possibilities.
7978         my @out = map "$prefix$_", grep /^\Q$text/, grep /^_?[a-zA-Z]/,
7987         if (@out == 1 and $out[0] =~ /::$/ and $out[0] ne $itext) {
7988             return db_complete($out[0], $line, $start);
7992         return sort @out;
8028 =item * If the package is C<::> (C<main>), create an empty list; if it's something else, create a list of all the packages known.  Append whichever list to a list of all the possible symbols in the current package. C<grep> out the matches to the text entered so far, then C<map> the prefix back onto the symbols.
8032         my @out = map "$prefix$_", grep /^\Q$text/,
8042         if (@out == 1 and $out[0] =~ /::$/ and $out[0] ne $itext) {
8043             return db_complete($out[0], $line, $start);
8047         return sort @out;
8064         my @out = grep /^\Q$text/, @options;
8065         my $val = option_val($out[0], undef);
8068         my $out = '? ';
8084                 $out = "$l$val$l ", last if (index $val, $l) == -1;
8090             $out = "=$val ";
8097           (@out == 1 ? $out : '? ');
8100         return sort @out;
8154 We then figure out whether we're truly done (as in the user entered a C<q>
8484     # Figure out what to put in the prompt.

Indexes created Tue Jul 24 14:28:13 CEST 2018