Implement the "step out" feature.

Author: Gregg Jensen

lib/Vim/Debug.pm

@@ -244,6 +244,7 @@ sub translate {
 
        if ($in =~ /^next$/            ) { @cmds = $self->next          }
     elsif ($in =~ /^step$/            ) { @cmds = $self->step          }
+    elsif ($in =~ /^stepout$/         ) { @cmds = $self->stepout       }
     elsif ($in =~ /^cont$/            ) { @cmds = $self->cont          }
     elsif ($in =~ /^break:(\d+):(.+)$/) { @cmds = $self->break($1, $2) }
     elsif ($in =~ /^clear:(\d+):(.+)$/) { @cmds = $self->clear($1, $2) }

lib/Vim/Debug/Perl.pm

@@ -49,6 +49,7 @@ debugger uses 'n'.
 =cut
 sub next     { 'n' }
 sub step     { 's' }
+sub stepout  { 'r' }
 sub cont     { 'c' }
 sub break    { "f $_[2]", "b $_[1]" }
 sub clear    { "f $_[2]", "B $_[1]" }

lib/Vim/Debug/_vim/doc/VimDebug.txt

@@ -83,13 +83,14 @@ change them by editing VimDebug.vim.
 
 These are the default key bindings. To change them edit VimDebug.vim.
 
-<F12>         Start the debugger, or toggle the key bindigs.
+<F12>         Start the debugger, or toggle the key bindings.
 <F11>         Exit the debugger.
 <F10>         Restart the debugger. Breakpoints are saved.
 
 <F9>          Continue.
 <F8>          Next.
-<F7>          Step.
+<F7>          Step in.
+<F6>          Step out.
 
 <Leader>b     Set breakpoint on the current line.
 <Leader>c     Clear breakpoint on the current line.

lib/Vim/Debug/_vim/plugin/VimDebug.vim

@@ -35,6 +35,7 @@ let s:dbgr_keys = [
   \ ["<F9>",       ":DBGRcont<cr>"],
   \ ["<F8>",       ":DBGRnext<cr>"],
   \ ["<F7>",       ":DBGRstep<cr>"],
+  \ ["<F6>",       ":DBGRstepout<cr>"],
   \ ["<Leader>b",  ":DBGRsetBreakPoint<cr>"],
   \ ["<Leader>c",  ":DBGRclearBreakPoint<cr>"],
   \ ["<Leader>ca", ":DBGRclearAllBreakPoints<cr>"],
@@ -205,6 +206,7 @@ endfunction
 
 " Debugger functions.
 
+command! -nargs=0 DBGRstepout             call DBGRstepout()
 command! -nargs=0 DBGRstep                call DBGRstep()
 command! -nargs=0 DBGRnext                call DBGRnext()
 command! -nargs=0 DBGRcont                call DBGRcont()
@@ -234,6 +236,15 @@ function! DBGRstep()
    call s:HandleCmdResult()
 endfunction
 
+function! DBGRstepout()
+   if !s:Copacetic()
+      return
+   endif
+   echo "\rstepout..."
+   call s:SocketWrite("stepout")
+   call s:HandleCmdResult()
+endfunction
+
 function! DBGRcont()
    if !s:Copacetic()
       return