distrib/lib/DB.pm

26   $DB::sub = '';        # name of current subroutine
27   %DB::sub = ();        # "filename:fromline-toline" for every known sub
34   @DB::ret = ();        # return value of last sub executed in list context
35   $DB::ret = '';        # return value of last sub executed in scalar context
41   $DB::subname = '';    # currently executing sub (fullly qualified name)
62 sub sub {
66 #  print $DB::sub, "\n";
67   if ($DB::sub =~ /(?:^|::)DESTROY$/ or not defined wantarray) {
68     &$DB::sub;
73     @DB::ret = &$DB::sub;
78     $DB::ret = &$DB::sub;
87 sub DB {
118     $DB::subname = ($DB::sub =~ /\'|::/) ? $DB::sub : "${DB::package}::$DB::sub"; #';
155 sub eval {
165 use strict;                # this can run only after DB() and sub() are defined
167 sub save {
172 sub catch {
184 sub register {
190 sub done {
199 sub _clientname {
205 sub next {
211 sub step {
217 sub cont {
233 sub ret {
235   my $i = shift;      # how many levels to get to DB sub
247 sub backtrace {
278 sub _outputall {
285 sub trace_toggle {
295 sub subs {
301       push @ret, [$DB::sub{$name} =~ /^(.*)\:(\d+)-(\d+)$/]
302 	if exists $DB::sub{$name};
306   return keys %DB::sub;
314 sub filesubs {
318   return grep { $DB::sub{$_} =~ /^$fname/ } keys %DB::sub;
324 sub files {
334 sub lines {
342 sub loadfile {
365 sub lineevents {
379 sub set_break {
397 sub set_tbreak {
412 sub _find_subline {
417   my($fname, $from, $to) = ($DB::sub{$name} =~ /^(.*):(\d+)-(\d+)$/);
426 sub clr_breaks {
454 sub set_action {
471 sub clr_actions {
495 sub prestop {
500 sub poststop {
510 sub cprestop {}
511 sub cpoststop {}
514 sub awaken {}
516 sub skippkg {
521 sub evalcode {
530 sub ready {
537 sub init {}
538 sub stop {}
539 sub idle {}
540 sub cleanup {}
541 sub output {}
656 =item  $DB::sub
660 =item  %DB::sub