File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_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, 2014 Rocky Bernstein <rocky@cpan.org>
3 12     12   102 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   33  
  12     12   465  
  12     2   80  
  12     2   36  
  12     2   418  
  12         108  
  12         37  
  12         339  
  2         25  
  2         9  
  2         93  
  2         18  
  2         14  
  2         118  
  2         18  
  2         7  
  2         94  
4 12     12   74 use rlib '../../../../..';
  12     2   34  
  12         75  
  2         19  
  2         7  
  2         20  
5              
6             package Devel::Trepan::CmdProcessor::Command::Show::Basename;
7 12     12   4886 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   35  
  12         493  
  2         1323  
  2         8  
  2         130  
8              
9             @ISA = qw(Devel::Trepan::CmdProcessor::Command::ShowBoolSubcmd);
10             # Values inherited from parent
11 12     12   76 use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
  12     2   39  
  12         2042  
  2         19  
  2         7  
  2         483  
12              
13             =pod
14              
15             =head2 Synopsis:
16              
17             =cut
18             our $HELP = <<"EOH";
19             =pod
20              
21             B<show basename>
22              
23             Show whether file basename are used showing file names.
24              
25             =head2 See also:
26              
27             L<C<set basename>|Devel::Trepan::CmdProcessor::Command::Set::Basename>
28             =cut
29             EOH
30             our $SHORT_HELP = "Show whether file basename are used showing file names";
31             our $MIN_ABBREV = length('ba');
32              
33             unless (caller) {
34             # Demo it.
35             # require_relative '../../mock'
36              
37             # # FIXME: DRY the below code
38             # dbgr, cmd = MockDebugger::setup('show')
39             # subcommand = __PACKAGE__->new(cmd)
40             # testcmdMgr = Trepan::Subcmd.new(subcommand)
41              
42             # subcommand.run_show_bool
43             # name = File.confirm(__FILE__, '.rb')
44             # subcommand.summary_help(name)
45             }
46              
47             1;