File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Debug_Subcmd/Except.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod n/a
total 36 36 100.0


line stmt bran cond sub pod time code
1             # -*- coding: utf-8 -*-
2             # Copyright (C) 2012, 2014 Rocky Bernstein <rocky@cpan.org>
3 12     12   88 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   38  
  12     12   577  
  12         76  
  12         32  
  12         487  
  12         82  
  12         32  
  12         343  
4 12     12   71 use rlib '../../../../../..';
  12         40  
  12         73  
5              
6             package Devel::Trepan::CmdProcessor::Command::Show::Debug::Except;
7 12     12   5322 use Devel::Trepan::CmdProcessor::Command::Subcmd::Subsubcmd;
  12         33  
  12         274  
8              
9 12     12   62 use strict;
  12         30  
  12         300  
10 12     12   68 use vars qw(@ISA @SUBCMD_VARS);
  12         38  
  12         763  
11             @ISA = qw(Devel::Trepan::CmdProcessor::Command::ShowBoolSubsubcmd);
12             # Values inherited from parent
13              
14 12     12   72 use vars @Devel::Trepan::CmdProcessor::Command::Subsubcmd::SUBCMD_VARS;
  12         32  
  12         1064  
15              
16             our $IN_LIST = 1;
17 12     12   136 use constant MAX_ARGS => 0;
  12         44  
  12         1400  
18             our $HELP = "Show debugging debugger-handled exceptions";
19              
20             our $MIN_ABBREV = length('ex');
21              
22             unless (caller) {
23             # Demo it.
24             # require_relative '../../../mock'
25              
26             # dbgr, set_cmd = MockDebugger::setup('set');
27             # $max_cmd = __PACKAGE__->new(dbgr.core.processor, $set_cmd);
28             # $cmd_ary = __PACKAGE__->{prefix};
29             # $cmd_name = cmd_ary.join(' ');
30             # $subcmd = __PACAKGE__->new(set_cmd.proc, max_cmd, cmd_name);
31             # prefix_run = cmd_ary[1..-1]
32             # $subcmd->run(prefix_run)
33             # $subcmd->run(($prefix_run, qw(0)));
34             # $subcmd->run(($prefix_run, qw(20)));
35             # $subcmd->summary_help($name);
36             # print
37             # print '-' x 20;
38             # print $subcmd->save_command
39             }
40              
41             1;