File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Set_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   110 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   36  
  12     12   486  
  12     2   71  
  12     2   30  
  12     2   370  
  12         67  
  12         31  
  12         307  
  2         20  
  2         8  
  2         89  
  2         13  
  2         7  
  2         82  
  2         21  
  2         7  
  2         69  
4 12     12   67 use rlib '../../../../..';
  12     2   28  
  12         92  
  2         14  
  2         7  
  2         14  
5              
6             package Devel::Trepan::CmdProcessor::Command::Set::Abbrev;
7              
8 12     12   5148 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   34  
  12         582  
  2         1127  
  2         8  
  2         142  
9              
10             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SetBoolSubcmd);
11             # Values inherited from parent
12 12     12   79 use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
  12     2   36  
  12         2325  
  2         18  
  2         11  
  2         514  
13              
14             our $SHORT_HELP = 'Set to allow unique abbreviations of commands';
15             our $HELP = <<'HELP';
16             =pod
17              
18             B<set abbrev> [B<on>|B<off>]
19              
20             Set to allow unique abbreviations of commands. If "on" or "off" is not
21             given, "on" is assumed.
22              
23             =head2 See also:
24              
25             L<C<show abbrev>|Devel::Trepan::CmdProcessor::Command::Show::Abbrev>
26              
27             =cut
28             HELP
29             our $MIN_ABBREV = length('ab');
30              
31             unless(caller) {
32             # Demo it.
33             require Devel::Trepan::CmdProcessor::Mock;
34             my ($proc, $cmd) =
35             Devel::Trepan::CmdProcessor::Mock::subcmd_setup();
36             Devel::Trepan::CmdProcessor::Mock::subcmd_demo_bool($proc, $cmd);
37             }
38              
39             1;