File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Trace.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   109 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   35  
  12     12   494  
  12     2   80  
  12     2   33  
  12     2   378  
  12         79  
  12         33  
  12         329  
  2         18  
  2         8  
  2         74  
  2         14  
  2         8  
  2         78  
  2         17  
  2         7  
  2         74  
4 12     12   71 use rlib '../../../../..';
  12     2   36  
  12         79  
  2         25  
  2         7  
  2         13  
5 12     12   5239 use strict;
  12     2   35  
  12         380  
  2         961  
  2         7  
  2         70  
6 12     12   77 use vars qw(@ISA @SUBCMD_VARS);
  12     2   35  
  12         681  
  2         14  
  2         5  
  2         141  
7              
8             package Devel::Trepan::CmdProcessor::Command::Show::Trace;
9              
10 12     12   86 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   33  
  12         336  
  2         17  
  2         6  
  2         62  
11 12     12   79 use Devel::Trepan::CmdProcessor::Command::Subcmd::SubsubMgr;
  12     2   32  
  12         316  
  2         17  
  2         6  
  2         58  
12 12     12   66 use vars qw(@ISA @SUBCMD_VARS);
  12     2   35  
  12         1700  
  2         13  
  2         6  
  2         318  
13             our $MIN_ABBREV = length('au');
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19             our $HELP = <<"HELP";
20             =pod
21              
22             Show tracing of various sorts.
23              
24             The types of tracing include events from the trace buffer, or printing
25             those events.
26              
27             =head2
28              
29             C<help set trace *> for a list of subcommands or C<help set trace>
30             I<name> for help on a particular trace subcommand.
31              
32             =cut
33             HELP
34             our $SHORT_HELP = 'Show tracing event-related controls';
35              
36             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SubsubcmdMgr);
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;