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   540 use warnings; no warnings 'redefine';
  12     12   105  
  12     1   370  
  12     1   57  
  12         25  
  12         356  
  1         7  
  1         2  
  1         24  
  1         4  
  1         2  
  1         36  
4              
5 12     12   62 use rlib '../../../..';
  12     1   21  
  12         61  
  1         6  
  1         1  
  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   4306 use if !@ISA, Devel::Trepan::CmdProcessor::Command ;
  12     1   26  
  12         72  
  1         370  
  1         3  
  1         4  
13              
14             unless (@ISA) {
15 12     12   68 eval <<'EOE';
  12     12   28  
  12     12   739  
  12     12   87  
  12     12   33  
  12     12   655  
  12         80  
  12         28  
  12         557  
  12         78  
  12         40  
  12         537  
  12         62  
  12         39  
  12         558  
  12         75  
  12         37  
  12         545  
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   1825 use strict;
  12     1   32  
  12         396  
  1         58  
  1         3  
  1         21  
26 12     12   64 use vars qw(@ISA);
  12     1   35  
  12         671  
  1         4  
  1         2  
  1         58  
27             @ISA = @CMD_ISA;
28 12     12   70 use vars @CMD_VARS; # Value inherited from parent
  12     1   29  
  12         3518  
  1         5  
  1         2  
  1         170  
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;