File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Set_Subcmd/Basename.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-2015 Rocky Bernstein <rocky@cpan.org>
3 12     12   106 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   33  
  12     12   483  
  12     2   67  
  12     2   31  
  12     2   385  
  12         72  
  12         31  
  12         335  
  2         20  
  2         7  
  2         85  
  2         15  
  2         7  
  2         89  
  2         13  
  2         6  
  2         65  
4 12     12   70 use rlib '../../../../..';
  12     2   31  
  12         74  
  2         13  
  2         9  
  2         17  
5              
6             package Devel::Trepan::CmdProcessor::Command::Set::Basename;
7              
8 12     12   5091 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   34  
  12         565  
  2         1104  
  2         8  
  2         104  
9              
10             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SetBoolSubcmd);
11             # Values inherited from parent
12 12     12   78 use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
  12     2   31  
  12         2588  
  2         15  
  2         6  
  2         473  
13              
14             our $SHORT_HELP = 'Set to show only file basename in showing file names';
15             =pod
16              
17             =head2 Synopsis:
18              
19             =cut
20              
21             our $HELP = <<'HELP';
22             =pod
23              
24             B<set basename> [B<on>|B<off>]
25              
26             Set to show only file basename in showing file names. If "on"
27             or "off" is not given, "on" is assumed.
28              
29             =head2 See also:
30              
31             L<C<show basename>|Devel::Trepan::CmdProcessor::Command::Show::Basename>
32              
33             =cut
34             HELP
35              
36             our $MIN_ABBREV = length('ba');
37              
38             unless (caller) {
39             # Demo it.
40             require Devel::Trepan::CmdProcessor::Mock;
41             my ($proc, $cmd) =
42             Devel::Trepan::CmdProcessor::Mock::subcmd_setup();
43             Devel::Trepan::CmdProcessor::Mock::subcmd_demo_bool($proc, $cmd);
44             }
45              
46             1;