File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Set_Subcmd/Debug.pm
Criterion Covered Total %
statement 54 54 100.0
branch n/a
condition n/a
subroutine 18 18 100.0
pod n/a
total 72 72 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   104 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   33  
  12     12   459  
  12     2   72  
  12     2   33  
  12     2   398  
  12         65  
  12         31  
  12         308  
  2         21  
  2         9  
  2         82  
  2         15  
  2         7  
  2         82  
  2         14  
  2         8  
  2         72  
4 12     12   68 use rlib '../../../../..';
  12     2   30  
  12         67  
  2         16  
  2         6  
  2         16  
5 12     12   4873 use strict;
  12     2   35  
  12         306  
  2         1034  
  2         5  
  2         63  
6 12     12   59 use vars qw(@ISA @SUBCMD_VARS);
  12     2   32  
  12         680  
  2         14  
  2         7  
  2         131  
7              
8             package Devel::Trepan::CmdProcessor::Command::Set::Debug;
9              
10 12     12   81 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   29  
  12         290  
  2         17  
  2         7  
  2         70  
11 12     12   70 use Devel::Trepan::CmdProcessor::Command::Subcmd::SubsubMgr;
  12     2   36  
  12         257  
  2         14  
  2         8  
  2         62  
12 12     12   59 use vars qw(@ISA @SUBCMD_VARS);
  12     2   28  
  12         2982  
  2         14  
  2         6  
  2         611  
13             our $MIN_ABBREV = length('de');
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19              
20             our $HELP = <<"HELP";
21             =pod
22              
23             B<set debug> [I<set debug commands>]
24              
25             Set debugger debugging controls.
26              
27             Run C<set debug *> for a list of subcommands or C<help set debug> I<name>
28             for help on a particular debugging control.
29              
30             =head2 See also:
31              
32             L<C<show debug>|Devel::Trepan::CmdProcessor::Command::Show::Debug>,
33             L<C<set debug
34             except>|Devel::Trepan::CmdProcessor::Command::Set::Debug::Except>,
35             L<C<set debug
36             macro>|Devel::Trepan::CmdProcessor::Command::Set::Debug::Macro>, and
37             L<C<set debug
38             skip>|Devel::Trepan::CmdProcessor::Command::Set::Debug::Skip>.
39              
40             =cut
41             HELP
42             our $SHORT_HELP = "Set debugging controls";
43              
44             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SubsubcmdMgr);
45              
46              
47             # sub run($$)
48             # {
49             # my ($self, $args) = @_;
50             # $self->SUPER;
51             # }
52              
53             unless (caller) {
54             # Demo it.
55             # FIXME: DRY with other subcommand manager demo code.
56             require Devel::Trepan::CmdProcessor::Mock;
57             my ($proc, $cmd) =
58             Devel::Trepan::CmdProcessor::Mock::subcmd_setup();
59             Devel::Trepan::CmdProcessor::Mock::subcmd_demo_info($proc, $cmd);
60             for my $arg ('e', 'macro', 'foo') {
61             my @aref = $cmd->complete_token_with_next($arg);
62             printf "%s\n", @aref ? $aref[0]->[0]: 'undef';
63             }
64             $cmd->run($cmd->{prefix});
65             my @args = (@{$cmd->{prefix}}, 'except', 'on');
66             $cmd->run(\@args);
67             }
68              
69             1;