Extract _handle_W_command .
authorShlomi Fish <shlomif@shlomifish.org>
Fri, 5 Oct 2012 06:01:50 +0000 (08:01 +0200)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:35 +0000 (09:18 -0500)
lib/perl5db.pl

index 5af7a09..d5c6d98 100644 (file)
@@ -2575,10 +2575,7 @@ Just calls C<DB::cmd_W>.
 
 =cut
 
-                if (my ($arg) = $cmd =~ /\AW\b\s*(.*)/s) {
-                    &cmd_W( 'W', $arg );
-                    next CMD;
-                }
+                $obj->_handle_W_command;
 
 =head4 C</> - search forward for a string in the source
 
@@ -3753,6 +3750,15 @@ sub _handle_w_command {
     return;
 }
 
+sub _handle_W_command {
+    if (my ($arg) = $DB::cmd =~ /\AW\b\s*(.*)/s) {
+        DB::cmd_W( 'W', $arg );
+        next CMD;
+    }
+
+    return;
+}
+
 package DB;
 
 # The following code may be executed now: