File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Debug.pm
Criterion Covered Total %
statement 54 54 100.0
branch n/a
condition n/a
subroutine 18 18 100.0
pod n/a
total 72 72 100.0


line stmt bran cond sub pod time code
1             # -*- coding: utf-8 -*-
2             # Copyright (C) 2012, 2014 Rocky Bernstein <rocky@cpan.org>
3 12     12   97 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   39  
  12     12   469  
  12     2   75  
  12     2   38  
  12     2   376  
  12         71  
  12         33  
  12         367  
  2         20  
  2         7  
  2         76  
  2         14  
  2         6  
  2         70  
  2         14  
  2         5  
  2         80  
4 12     12   71 use rlib '../../../../..';
  12     2   34  
  12         68  
  2         16  
  2         12  
  2         14  
5 12     12   5050 use strict;
  12     2   32  
  12         338  
  2         974  
  2         9  
  2         86  
6 12     12   68 use vars qw(@ISA @SUBCMD_VARS);
  12     2   29  
  12         703  
  2         16  
  2         6  
  2         151  
7              
8             package Devel::Trepan::CmdProcessor::Command::Show::Debug;
9              
10 12     12   84 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   32  
  12         341  
  2         17  
  2         7  
  2         95  
11 12     12   68 use Devel::Trepan::CmdProcessor::Command::Subcmd::SubsubMgr;
  12     2   27  
  12         281  
  2         21  
  2         8  
  2         77  
12 12     12   56 use vars qw(@ISA @SUBCMD_VARS);
  12     2   34  
  12         1623  
  2         12  
  2         7  
  2         329  
13             our $MIN_ABBREV = length('de');
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19             our $HELP = <<"HELP";
20             =pod
21              
22             B<show debug> [I<show-debug subcommands>]
23              
24             Show debugger debugging controls.
25              
26             =head2 See also:
27              
28             C<help show debug *> for a list of subcommands or C<help show debug>
29             I<name> for help on a particular trace subcommand.
30              
31             =head2 See also:
32              
33             L<C<set debug>|Devel::Trepan::CmdProcessor::Command::Set::Debug>
34             =cut
35             HELP
36             our $SHORT_HELP = "Show debugging controls";
37              
38             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SubsubcmdMgr);
39              
40              
41             # sub run($$)
42             # {
43             # my ($self, $args) = @_;
44             # $self->SUPER;
45             # }
46              
47             unless (caller) {
48             # Demo it.
49             require Devel::Trepan;
50             # require_relative '../../mock'
51             # dbgr, parent_cmd = MockDebugger::setup('set', false);
52             # $cmd = __PACKAGE__->new(dbgr.core.processor,
53             # parent_cmd);
54             # $cmd->run(($cmd->prefix ('string', '30'));
55              
56             # for my $prefix qw(s lis foo) {
57             # p [prefix, cmd.complete(prefix)];
58             # }
59             }
60              
61             1;