distrib/lib/perl5db.pl

300 =item * 16 - Adds C<I<context> return from I<subname>: I<value>> messages on subroutine/eval exit. Ignored if C<4> is is not on.
745 #   + `b compile subname' implemented.
2180                     foreach $subname (sort(keys %sub)) {
2181                         if ($Snocheck or $Srev ^ ($subname =~ /$Spatt/)) {
2182                             print $OUT $subname, "\n";
2507                     $subname = $i = $1;
2518                     # If the "subname" isn't all digits, we'll assume it
2520                     if ($subname =~ /\D/) {    # subroutine name
2523                         $subname = $package . "::" . $subname
2524                           unless $subname =~ /::/;
2529                         ($file, $i) = (find_sub($subname) =~ /^(.*):(.*)$/);
2550                             print $OUT "Subroutine $subname not found.\n";
2553                     } ## end if ($subname =~ /\D/)
2555                     # At this point, either the subname was all digits (an
2560                     # If $i (which we set $subname from) is non-zero, we
2567                     # On the other hand, if there was a subname supplied, the
3924         my ($subname, $break) = ($2, $1 eq 'postpone');
3927         $subname =~ s/\'/::/g;
3930         $subname = "${'package'}::" . $subname unless $subname =~ /::/;
3933         $subname = "main" . $subname if substr($subname, 0, 2) eq "::";
3936         $postponed{$subname} = $break ? "break +0 if $cond" : "compile";
3942         $subname = $1;
3944         &cmd_b_sub($subname, $cond);
4263 =head3 subroutine_filename_lines(subname, [condition]) (API)
4271     my ($subname, $cond) = @_;
4276     find_sub($subname) =~ /^(.*):(\d+)-(\d+)$/;
4279 =head3 break_subroutine(subname) (API)
4288     my $subname = shift;
4291     my ($file, $s, $e) = subroutine_filename_lines($subname)
4292       or die "Subroutine $subname not found.\n";
4302 =head3 cmd_b_sub(subname, [condition]) (command)
4324     my ($subname, $cond) = @_;
4329     # If the subname isn't a code reference, qualify it so that
4331     unless (ref $subname eq 'CODE') {
4333         $subname =~ s/\'/::/g;
4334         my $s = $subname;
4337         $subname = "${'package'}::" . $subname
4338           unless $subname =~ /::/;
4343         $subname = "CORE::GLOBAL::$s"
4344           if not defined &$subname
4349         $subname = "main" . $subname if substr($subname, 0, 2) eq "::";
4351     } ## end unless (ref $subname eq 'CODE')
4354     eval { break_subroutine($subname, $cond); 1 } or do {
4636         my $s = $subname = $1;
4639         $subname =~ s/\'/::/;
4642         $subname = $package . "::" . $subname unless $subname =~ /::/;
4646         $subname = "CORE::GLOBAL::$s"
4647           if not defined &$subname
4652         $subname = "main" . $subname if substr($subname, 0, 2) eq "::";
4656         @pieces = split (/:/, find_sub($subname) || $sub{$subname});
4689             print $OUT "Subroutine $subname not found.\n";
4855         my $subname;
4856         for $subname (keys %postponed) {
4857             print $OUT " $subname\t$postponed{$subname}\n";
5154     my $subname = shift;
5157     if ($postponed{$subname} =~ s/^break\s([+-]?\d+)\s+if\s//) {
5163         my ($file, $i) = (find_sub($subname) =~ /^(.*):(\d+)-.*$/);
5166             # $postponed{subname}.
5186             $dbline{$i} = delete $postponed{$subname};
5192             print $OUT "Subroutine $subname not found.\n";
5195     } ## end if ($postponed{$subname...
5196     elsif ($postponed{$subname} eq 'compile') { $signal = 1 }
5198     #print $OUT "In postponed_sub for `$subname'.\n";
6767 B<l> I<subname>	List first window of lines from subroutine.
6790 B<b> I<subname> [I<condition>]
6794 B<b> B<postpone> I<subname> [I<condition>]
6797 B<b> B<compile> I<subname>
6953 B<l> I<subname>	List first window of lines from subroutine.
6975 B<b> I<subname> [I<condition>]
6979 B<b> B<postpone> I<subname> [I<condition>]
6982 B<b> B<compile> I<subname>
8272         my ($subname, $break) = ($2, $1 eq 'postpone');
8275         $subname =~ s/\'/::/g;
8278         $subname = "${'package'}::" . $subname
8279           unless $subname =~ /::/;
8282         $subname = "main" . $subname if substr($subname, 0, 2) eq "::";
8285         $postponed{$subname} = $break ? "break +0 if $cond" : "compile";
8290         my $subname = $1;
8292         &cmd_b_sub($subname, $cond);