File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Continue.pm
Criterion Covered Total %
statement 60 64 93.7
branch n/a
condition n/a
subroutine 20 22 90.9
pod 0 2 0.0
total 80 88 90.9


line stmt bran cond sub pod time code
1             # -*- coding: utf-8 -*-
2             # Copyright (C) 2011-2012, 2015 Rocky Bernstein <rocky@cpan.org>
3 12     12   105 use warnings; no warnings 'redefine';
  12     12   34  
  12     1   430  
  12     1   67  
  12         29  
  12         410  
  1         7  
  1         4  
  1         25  
  1         5  
  1         2  
  1         31  
4              
5 12     12   68 use rlib '../../../..';
  12     1   29  
  12         74  
  1         5  
  1         3  
  1         5  
6              
7             # rlib '../running'
8             # rlib '../../app/breakpoint' # FIXME: possibly temporary
9              
10             package Devel::Trepan::CmdProcessor::Command::Continue;
11              
12 12     12   4834 use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
  12     1   35  
  12         84  
  1         350  
  1         2  
  1         5  
13              
14             unless (@ISA) {
15 12     12   80 eval <<'EOE';
  12     12   38  
  12     12   838  
  12     12   78  
  12     12   30  
  12     12   549  
  12         72  
  12         27  
  12         451  
  12         97  
  12         27  
  12         475  
  12         66  
  12         33  
  12         464  
  12         71  
  12         34  
  12         499  
16             use constant ALIASES => qw(c cont);
17             use constant CATEGORY => 'running';
18             use constant SHORT_HELP => 'Continue running until end or brkpt';
19             use constant MIN_ARGS => 0; # Need at least this many
20             use constant MAX_ARGS => 2; # Need at most this many
21             use constant NEED_STACK => 1;
22             EOE
23             }
24              
25 12     12   2524 use strict;
  12     1   36  
  12         331  
  1         49  
  1         2  
  1         24  
26 12     12   74 use vars qw(@ISA);
  12     1   33  
  12         645  
  1         4  
  1         2  
  1         45  
27             @ISA = @CMD_ISA;
28 12     12   74 use vars @CMD_VARS; # Value inherited from parent
  12     1   32  
  12         2419  
  1         4  
  1         2  
  1         153  
29              
30             our $NAME = set_name();
31             =pod
32              
33             =head2 Synopsis:
34              
35             =cut
36             our $HELP = <<"HELP";
37             =pod
38              
39             B<continue> [I<location>]
40              
41             Leave the debugger loop and continue execution. Subsequent entry to
42             the debugger however may occur via breakpoints or explicit calls, or
43             exceptions.
44              
45             If a parameter is given, a temporary breakpoint is set at that position
46             before continuing.
47              
48             =head2 Examples:
49              
50             continue
51             continue 10 # continue to line 10
52             continue gcd # continue to first instruction of method gcd
53              
54             =head2 See also:
55              
56             L<C<step>|Devel::Trepan::CmdProcessor::Command::Step>,
57             L<C<next>|Devel::Trepan::CmdProcessor::Command::Next>,
58             L<C<finish>|Devel::Trepan::CmdProcessor::Command::Finish>, and
59             L<C<help syntax location>|Devel::Trepan::CmdProcessor::Command::Help::location>
60              
61             =cut
62             HELP
63              
64              
65             # This method runs the command
66             sub run($$) {
67 0     0 0   my ($self, $args) = @_;
  0     0 0    
68 0           $self->{proc}->continue($args);
  0            
69             }
70              
71             if (__FILE__ eq $0) {
72             # require_relative '../mock'
73             # dbgr, cmd = MockDebugger::setup
74             # p cmd.run([cmd.name])
75             }
76              
77             1;