File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Display.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 Rocky Bernstein <rocky@cpan.org>
3 12     12   103 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   38  
  12     12   505  
  12     2   80  
  12     2   48  
  12     2   390  
  12         65  
  12         35  
  12         323  
  2         17  
  2         8  
  2         67  
  2         14  
  2         6  
  2         70  
  2         12  
  2         6  
  2         62  
4 12     12   75 use rlib '../../../../..';
  12     2   35  
  12         72  
  2         13  
  2         7  
  2         10  
5 12     12   4975 use strict;
  12     2   29  
  12         324  
  2         978  
  2         7  
  2         69  
6 12     12   62 use vars qw(@ISA @SUBCMD_VARS);
  12     2   35  
  12         724  
  2         13  
  2         8  
  2         127  
7              
8             package Devel::Trepan::CmdProcessor::Command::Show::Display;
9              
10 12     12   88 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   31  
  12         310  
  2         16  
  2         6  
  2         62  
11 12     12   75 use Devel::Trepan::CmdProcessor::Command::Subcmd::SubsubMgr;
  12     2   37  
  12         273  
  2         15  
  2         7  
  2         70  
12 12     12   59 use vars qw(@ISA @SUBCMD_VARS);
  12     2   32  
  12         1603  
  2         12  
  2         8  
  2         301  
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 display> [I<show-display sub-commmand> ...]
23              
24             Show display-related controls
25              
26             =head2 See also:
27              
28             L<C<set display>|Devel::Trepan::CmdProcessor::Command::Set::Display>
29             =cut
30             EOH
31             our $SHORT_HELP = 'Show display-related controls';
32              
33             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SubsubcmdMgr);
34              
35              
36             # sub run($$)
37             # {
38             # my ($self, $args) = @_;
39             # $self->SUPER;
40             # }
41              
42             unless (caller) {
43             # Demo it.
44             require Devel::Trepan;
45             # require_relative '../../mock'
46             # dbgr, parent_cmd = MockDebugger::setup('set', false);
47             # $cmd = __PACKAGE__->new(dbgr.core.processor,
48             # parent_cmd);
49             # $cmd->run(($cmd->prefix ('string', '30'));
50              
51             # for my $prefix qw(s lis foo) {
52             # p [prefix, cmd.complete(prefix)];
53             # }
54             }
55              
56             1;