File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Set_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-2015 Rocky Bernstein <rocky@cpan.org>
3 12     12   84 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   39  
  12     12   509  
  12         72  
  12         38  
  12         399  
  12         69  
  12         34  
  12         357  
4 12     12   73 use rlib '../../../../../..';
  12         34  
  12         76  
5              
6             package Devel::Trepan::CmdProcessor::Command::Set::Debug::Except;
7 12     12   5374 use Devel::Trepan::CmdProcessor::Command::Subcmd::Subsubcmd;
  12         32  
  12         307  
8              
9 12     12   68 use strict;
  12         33  
  12         353  
10 12     12   72 use vars qw(@ISA @SUBCMD_VARS);
  12         33  
  12         832  
11             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SetBoolSubsubcmd);
12             # Values inherited from parent
13              
14 12     12   83 use vars @Devel::Trepan::CmdProcessor::Command::Subsubcmd::SUBCMD_VARS;
  12         34  
  12         1489  
15              
16             our $IN_LIST = 1;
17             our $SHORT_HELP = "Debug exceptions handled by debugger";
18             our $MIN_ABBREV = length('ex');
19 12     12   90 use constant MAX_ARGS => 1;
  12         35  
  12         1520  
20             =pod
21              
22             =head2 Synopsis:
23              
24             =cut
25              
26             our $HELP = <<'HELP';
27             =pod
28              
29             B<set debug except> [B<on>|B<off>]
30              
31             Debug exceptions handled by debugger. If "on"
32             or "off" is not given, "on" is assumed.
33              
34             =head2 See also:
35              
36             L<C<show debug except>|Devel::Trepan::CmdProcessor::Command::Show::Debug::Except>
37              
38             =cut
39             HELP
40              
41             unless (caller) {
42             # Demo it.
43             # require_relative '../../../mock'
44             # name = File.basename(__FILE__, '.rb')
45              
46             # dbgr, set_cmd = MockDebugger::setup('set')
47             # $max_cmd = __PACKAGE__->new(dbgr.core.processor, $set_cmd)
48             # $cmd_ary = Trepan::SubSubcommand::SetMaxList::PREFIX
49             # $cmd_name = cmd_ary.join(' ')
50             # $subcmd = __PACKAGE__->new($set_cmd->{proc}, $max_cmd, $cmd_name);
51             # $prefix_run = cmd_ary[1..-1]
52             # $subcmd->run(prefix_run);
53             # $subcmd-.run(prefix_run, qw(0));
54             # $subcmd->run(prefix_run, qw(20));
55             # $subcmd->summary_help(name);
56             # print
57             # print '-' x 20;
58             # print $subcmd->save_command
59             }
60              
61             1;