File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Auto.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) 2011,2014 Rocky Bernstein <rocky@cpan.org>
3 12     12   98 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   34  
  12     12   464  
  12     2   68  
  12     2   29  
  12     2   353  
  12         69  
  12         32  
  12         391  
  2         17  
  2         9  
  2         76  
  2         14  
  2         6  
  2         95  
  2         14  
  2         6  
  2         72  
4 12     12   79 use rlib '../../../../..';
  12     2   43  
  12         75  
  2         15  
  2         8  
  2         10  
5 12     12   4743 use strict;
  12     2   34  
  12         335  
  2         993  
  2         8  
  2         65  
6 12     12   67 use vars qw(@ISA @SUBCMD_VARS);
  12     2   32  
  12         764  
  2         15  
  2         6  
  2         149  
7              
8             package Devel::Trepan::CmdProcessor::Command::Show::Auto;
9              
10 12     12   76 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   31  
  12         298  
  2         17  
  2         7  
  2         60  
11 12     12   75 use Devel::Trepan::CmdProcessor::Command::Subcmd::SubsubMgr;
  12     2   41  
  12         295  
  2         18  
  2         7  
  2         67  
12 12     12   68 use vars qw(@ISA @SUBCMD_VARS);
  12     2   28  
  12         1699  
  2         13  
  2         6  
  2         309  
13             our $MIN_ABBREV = length('au');
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19             our $HELP = <<"EOH";
20             =pod
21              
22             B<show auto> [I<show-auto sub-commmand> ...]
23              
24             Show controls for things with some sort of "automatic" default behavior.
25              
26             =head2 See also:
27              
28             L<C<set auto>|Devel::Trepan::CmdProcessor::Command::Set::auto>
29             =cut
30             EOH
31              
32             our $SHORT_HELP =
33             'Show "automatic" default behavior controls';
34              
35             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SubsubcmdMgr);
36              
37              
38             # sub run($$)
39             # {
40             # my ($self, $args) = @_;
41             # $self->SUPER;
42             # }
43              
44             unless (caller) {
45             # Demo it.
46             require Devel::Trepan;
47             # require_relative '../../mock'
48             # dbgr, parent_cmd = MockDebugger::setup('set', false);
49             # $cmd = __PACKAGE__->new(dbgr.core.processor,
50             # parent_cmd);
51             # $cmd->run(($cmd->prefix ('string', '30'));
52              
53             # for my $prefix qw(s lis foo) {
54             # p [prefix, cmd.complete(prefix)];
55             # }
56             }
57              
58             1;