Extract _handle_[sn]_and_arg_commands.
authorShlomi Fish <shlomif@shlomifish.org>
Mon, 8 Oct 2012 13:15:07 +0000 (15:15 +0200)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:38 +0000 (09:18 -0500)
lib/perl5db.pl

index 81b770a..72461eb 100644 (file)
@@ -3047,16 +3047,8 @@ any variables we might want to address in the C<DB> package.
 
 =cut
 
-                # s - single-step. Remember the last command was 's'.
-                if ($cmd =~ s/\As\s/\$DB::single = 1;\n/) {
-                    $laststep = 's';
-                }
-
-                # n - single-step, but not into subs. Remember last command
-                # was 'n'.
-                if ($cmd =~ s#\An\s#\$DB::single = 2;\n#) {
-                    $laststep = 'n';
-                }
+                $obj->_handle_s_and_arg_command;
+                $obj->_handle_n_and_arg_command;
 
             }    # PIPE:
 
@@ -3914,6 +3906,29 @@ sub _handle_save_command {
     return;
 }
 
+sub _handle_s_and_arg_command {
+    my $self = shift;
+
+    # s - single-step. Remember the last command was 's'.
+    if ($DB::cmd =~ s#\As\s#\$DB::single = 1;\n#) {
+        $laststep = 's';
+    }
+
+    return;
+}
+
+sub _handle_n_and_arg_command {
+    my $self = shift;
+
+    # n - single-step, but not into subs. Remember last command
+    # was 'n'.
+    if ($DB::cmd =~ s#\An\s#\$DB::single = 2;\n#) {
+        $laststep = 'n';
+    }
+
+    return;
+}
+
 package DB;
 
 # The following code may be executed now: