File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Set_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-2015 Rocky Bernstein <rocky@cpan.org>
3 12     12   102 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   35  
  12     12   479  
  12     2   115  
  12     2   33  
  12     2   394  
  12         83  
  12         31  
  12         348  
  2         20  
  2         10  
  2         66  
  2         13  
  2         5  
  2         73  
  2         14  
  2         48  
  2         77  
4 12     12   69 use rlib '../../../../..';
  12     2   40  
  12         68  
  2         14  
  2         8  
  2         13  
5 12     12   5101 use strict;
  12     2   35  
  12         350  
  2         1092  
  2         6  
  2         79  
6 12     12   78 use vars qw(@ISA @SUBCMD_VARS);
  12     2   36  
  12         721  
  2         13  
  2         6  
  2         127  
7              
8             package Devel::Trepan::CmdProcessor::Command::Set::Trace;
9              
10 12     12   80 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   31  
  12         314  
  2         15  
  2         5  
  2         63  
11 12     12   83 use Devel::Trepan::CmdProcessor::Command::Subcmd::SubsubMgr;
  12     2   32  
  12         331  
  2         15  
  2         8  
  2         65  
12 12     12   66 use vars qw(@ISA @SUBCMD_VARS);
  12     2   35  
  12         2907  
  2         17  
  2         8  
  2         456  
13             our $MIN_ABBREV = length('tr');
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19             our $HELP = <<"HELP";
20             =pod
21              
22             B<set trace> [I<set trace subcommands>]
23              
24             Set tracing of various sorts.
25              
26             The types of tracing include events from the trace buffer, or printing
27             those events.
28              
29             Run 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             =head2 See also:
33              
34             L<C<show trace>|Devel::Trepan::CmdProcessor::Command::Show::Trace>
35              
36             =cut
37             HELP
38             our $SHORT_HELP = "Set tracing of various sorts.";
39              
40             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SubsubcmdMgr);
41              
42             unless (caller) {
43             # Demo it.
44             # FIXME: DRY with other subcommand manager demo code.
45             require Devel::Trepan::CmdProcessor::Mock;
46             my ($proc, $cmd) =
47             Devel::Trepan::CmdProcessor::Mock::subcmd_setup();
48             Devel::Trepan::CmdProcessor::Mock::subcmd_demo_info($proc, $cmd);
49             $cmd->run($cmd->{prefix});
50             my @args = (@{$cmd->{prefix}}, 'print', 'off');
51             $cmd->run(\@args);
52             }
53              
54             1;