File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Set_Subcmd/Max.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   104 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   33  
  12     12   493  
  12     2   79  
  12     2   33  
  12     2   361  
  12         66  
  12         32  
  12         324  
  2         19  
  2         7  
  2         72  
  2         14  
  2         7  
  2         83  
  2         13  
  2         7  
  2         71  
4 12     12   71 use rlib '../../../../..';
  12     2   35  
  12         75  
  2         13  
  2         12  
  2         16  
5 12     12   5443 use strict;
  12     2   32  
  12         353  
  2         1190  
  2         7  
  2         71  
6 12     12   71 use vars qw(@ISA @SUBCMD_VARS);
  12     2   30  
  12         779  
  2         13  
  2         6  
  2         129  
7              
8             package Devel::Trepan::CmdProcessor::Command::Set::Max;
9              
10 12     12   87 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   30  
  12         324  
  2         14  
  2         6  
  2         65  
11 12     12   141 use Devel::Trepan::CmdProcessor::Command::Subcmd::SubsubMgr;
  12     2   36  
  12         366  
  2         17  
  2         7  
  2         59  
12 12     12   72 use vars qw(@ISA @SUBCMD_VARS);
  12     2   34  
  12         2119  
  2         14  
  2         7  
  2         402  
13             our $MIN_ABBREV = length('ma');
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19              
20             our $HELP = <<"HELP";
21             =pod
22              
23             B<set max> I<set max subcommands>
24              
25             Set maximum length for things which may have unbounded size.
26              
27             Run C<help set max *> for a list of subcommands or C<help set max I<name>>
28             for help on a particular max setting.
29              
30             =head2 See also:
31              
32             L<C<show max>|Devel::Trepan::CmdProcessor::Command::Show::Max>
33              
34             =cut
35             HELP
36              
37             our $SHORT_HELP = "Set maximum length sizes of various things";
38              
39             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SubsubcmdMgr);
40              
41             unless (caller) {
42             # Demo it.
43             require Devel::Trepan::CmdProcessor::Mock;
44             my ($proc, $cmd) =
45             Devel::Trepan::CmdProcessor::Mock::subcmd_setup();
46             Devel::Trepan::CmdProcessor::Mock::subcmd_demo_bool($proc, $cmd);
47             require Devel::Trepan;
48             }
49              
50             1;