File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Different.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   99 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   37  
  12     12   469  
  12     2   71  
  12     2   31  
  12     2   341  
  12         64  
  12         36  
  12         291  
  2         19  
  2         9  
  2         80  
  2         13  
  2         9  
  2         131  
  2         17  
  2         6  
  2         69  
4 12     12   67 use rlib '../../../../..';
  12     2   32  
  12         71  
  2         16  
  2         7  
  2         13  
5              
6             package Devel::Trepan::CmdProcessor::Command::Show::Different;
7              
8 12     12   5074 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   36  
  12         542  
  2         1083  
  2         7  
  2         106  
9              
10             @ISA = qw(Devel::Trepan::CmdProcessor::Command::ShowBoolSubcmd);
11             # Values inherited from parent
12 12     12   71 use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
  12     2   31  
  12         1986  
  2         15  
  2         7  
  2         376  
13              
14             our $SHOW_HELP = <<EOH;
15             =pod
16              
17             B<show different>
18              
19             Show status of 'set different'
20             =head2 See also:
21              
22             L<C<set different>|Devel::Trepan::CmdProcessor::Command::Set::Different>
23             =cut
24             EOH
25              
26             our $SHORT_HELP = "Show status of 'set different'";
27             our $MIN_ABBREV = length('dif');
28              
29             unless (caller) {
30             # Demo it.
31             # require_relative '../../mock'
32              
33             # # FIXME: DRY the below code
34             # my ($dbgr, $cmd) = MockDebugger::setup('show');
35             # $subcommand = __PACKAGE__->new(cmd);
36             # $testcmdMgr = Trepan::Subcmd->new(subcommand);
37              
38             # $subcommand->run_show_bool();
39             # $subcommand->summary_help($NAME);
40             }
41              
42             1;