[perl5db] Extract a method.
authorShlomi Fish <shlomif@shlomifish.org>
Tue, 2 Oct 2012 15:59:07 +0000 (17:59 +0200)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:33 +0000 (09:18 -0500)
lib/perl5db.pl

index 10c38e9..9963375 100644 (file)
@@ -2157,16 +2157,7 @@ If level is specified, set C<$trace_to_depth>.
 
 =cut
 
 
 =cut
 
-                if (my ($levels) = $cmd =~ /\At(?:\s+(\d+))?\z/) {
-                    $trace ^= 1;
-                    local $\ = '';
-                    $trace_to_depth = $levels ? $stack_depth + $levels : 1E9;
-                    print $OUT "Trace = "
-                      . ( ( $trace & 1 )
-                      ? ( $levels ? "on (to level $trace_to_depth)" : "on" )
-                      : "off" ) . "\n";
-                    next CMD;
-                }
+                $obj->_handle_t_command();
 
 =head4 C<S> - list subroutines matching/not matching a pattern
 
 
 =head4 C<S> - list subroutines matching/not matching a pattern
 
@@ -3653,6 +3644,21 @@ number information, and print that.
     return;
 }
 
     return;
 }
 
+sub _handle_t_command {
+    if (my ($levels) = $DB::cmd =~ /\At(?:\s+(\d+))?\z/) {
+        $DB::trace ^= 1;
+        local $\ = '';
+        $DB::trace_to_depth = $levels ? $DB::stack_depth + $levels : 1E9;
+        print {$DB::OUT} "Trace = "
+        . ( ( $DB::trace & 1 )
+            ? ( $levels ? "on (to level $DB::trace_to_depth)" : "on" )
+            : "off" ) . "\n";
+        next CMD;
+    }
+
+    return;
+}
+
 package DB;
 
 # The following code may be executed now:
 package DB;
 
 # The following code may be executed now: