File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Confirm.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   101 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   36  
  12     12   499  
  12     2   87  
  12     2   34  
  12     2   430  
  12         80  
  12         36  
  12         356  
  2         23  
  2         10  
  2         91  
  2         17  
  2         8  
  2         83  
  2         13  
  2         13  
  2         87  
4 12     12   75 use rlib '../../../../..';
  12     2   42  
  12         73  
  2         14  
  2         13  
  2         18  
5              
6             package Devel::Trepan::CmdProcessor::Command::Show::Confirm;
7              
8 12     12   4973 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   34  
  12         535  
  2         1138  
  2         7  
  2         106  
9              
10             @ISA = qw(Devel::Trepan::CmdProcessor::Command::ShowBoolSubcmd);
11             # Values inherited from parent
12 12     12   77 use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
  12     2   37  
  12         1931  
  2         19  
  2         7  
  2         390  
13              
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19              
20             our $HELP=<<"EOH";
21             =pod
22              
23             B<show confirm>
24              
25             Show whether to confirm potentially dangerous operations.
26              
27             =head2 See also:
28              
29             L<C<set confirm>|Devel::Trepan::CmdProcessor::Command::Set::Confirm>
30             =cut
31             EOH
32             our $SHORT_HELP = "Show whether to confirm potentially dangerous operations";
33             our $MIN_ABBREV = length('co');
34              
35             unless (caller) {
36             # Demo it.
37             # require_relative '../../mock'
38              
39             # # FIXME: DRY the below code
40             # dbgr, cmd = MockDebugger::setup('show')
41             # subcommand = __PACKAGE__->new(cmd)
42             # testcmdMgr = Trepan::Subcmd.new(subcommand)
43              
44             # subcommand.run_show_bool
45             # name = File.confirm(__FILE__, '.rb')
46             # subcommand.summary_help(name)
47             }
48              
49             1;