File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_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-2012, 2014 Rocky Bernstein <rocky@cpan.org>
3 12     12   94 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   37  
  12     12   491  
  12     2   70  
  12     2   32  
  12     2   343  
  12         72  
  12         30  
  12         285  
  2         22  
  2         9  
  2         103  
  2         20  
  2         6  
  2         100  
  2         18  
  2         8  
  2         101  
4 12     12   68 use rlib '../../../../..';
  12     2   31  
  12         64  
  2         19  
  2         9  
  2         16  
5 12     12   4642 use strict;
  12     2   35  
  12         412  
  2         1343  
  2         10  
  2         113  
6 12     12   95 use vars qw(@ISA @SUBCMD_VARS);
  12     2   37  
  12         756  
  2         17  
  2         7  
  2         169  
7              
8             package Devel::Trepan::CmdProcessor::Command::Show::Max;
9              
10 12     12   81 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   34  
  12         338  
  2         21  
  2         8  
  2         101  
11 12     12   129 use Devel::Trepan::CmdProcessor::Command::Subcmd::SubsubMgr;
  12     2   37  
  12         299  
  2         21  
  2         6  
  2         87  
12 12     12   65 use vars qw(@ISA @SUBCMD_VARS);
  12     2   37  
  12         1774  
  2         21  
  2         10  
  2         408  
13             our $MIN_ABBREV = length('ma');
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19             our $HELP = <<"HELP";
20             =pod
21              
22             B<show max> [I<show max subcommands>]
23              
24             Show maximum length setting on things which may have unbounded size.
25              
26             =head2 See also:
27              
28             C<help show max *> for a list of subcommands or C<help show debug
29             I<name>> for help on a particular max subcommand.
30              
31             =head2 See also:
32              
33             L<C<set mac>|Devel::Trepan::CmdProcessor::Command::Set::Max>
34             =cut
35             HELP
36              
37             our $SHORT_HELP = 'Show "maximum length" settings';
38             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SubsubcmdMgr);
39              
40              
41             # def run(args)
42             # puts "foo"
43             # require 'trepanning'
44             # Trepan.debug
45             # super
46             # end
47              
48             unless (caller) {
49             # Demo it.
50             require Devel::Trepan;
51             # require_relative '../../mock'
52             # dbgr, parent_cmd = MockDebugger::setup('set', false)
53             # cmd = Trepan::SubSubcommand::SetMax.new(dbgr.core.processor,
54             # parent_cmd)
55             # cmd.run(cmd.prefix + ['string', '30'])
56              
57             # %w(s lis foo).each do |prefix|
58             # p [prefix, cmd.complete(prefix)]
59             # end
60             }
61              
62             1;