File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Abbrev.pm
Criterion Covered Total %
statement 36 36 100.0
branch n/a
condition n/a
subroutine 12 12 100.0
pod n/a
total 48 48 100.0


line stmt bran cond sub pod time code
1             # -*- coding: utf-8 -*-
2             # Copyright (C) 2011, 2012, 2014 Rocky Bernstein <rocky@cpan.org>
3 12     12   99 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   36  
  12     12   482  
  12     2   73  
  12     2   33  
  12     2   374  
  12         67  
  12         39  
  12         307  
  2         19  
  2         6  
  2         74  
  2         17  
  2         8  
  2         100  
  2         16  
  2         6  
  2         68  
4 12     12   63 use rlib '../../../../..';
  12     2   32  
  12         80  
  2         14  
  2         6  
  2         15  
5              
6             package Devel::Trepan::CmdProcessor::Command::Show::Abbrev;
7              
8 12     12   5180 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   36  
  12         526  
  2         1036  
  2         9  
  2         92  
9              
10             @ISA = qw(Devel::Trepan::CmdProcessor::Command::ShowBoolSubcmd);
11             # Values inherited from parent
12 12     12   68 use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
  12     2   32  
  12         1924  
  2         14  
  2         6  
  2         342  
13              
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19             our $HELP = <<'EOH';
20             =pod
21              
22             B<show abbrev>
23              
24             Show whether we allow abbreviated debugger command names
25              
26             =head2 See also:
27              
28             L<C<set abbrev>|Devel::Trepan::CmdProcessor::Command::Set::Abbrev>
29             =cut
30             EOH
31              
32             our $SHORT_HELP = "Show whether we allow abbreviated debugger command names";
33             our $MIN_ABBREV = length('ab');
34              
35             unless (caller) {
36             # Demo it.
37             # require_relative '../../mock'
38              
39             # # FIXME: DRY the below code
40             # my ($dbgr, $cmd) = MockDebugger::setup('show');
41             # $subcommand = __PACKAGE__->new($cmd);
42             # $testcmdMgr = Trepan::Subcmd->new($subcommand);
43              
44             # $subcommand->run_show_bool();
45             # $subcommand->summary_help($NAME);
46             }
47              
48             1;