File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Timer.pm
Criterion Covered Total %
statement 36 36 100.0
branch n/a
condition n/a
subroutine 12 12 100.0
pod n/a
total 48 48 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   113 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   40  
  12     12   529  
  12     2   83  
  12     2   37  
  12     2   407  
  12         77  
  12         35  
  12         362  
  2         20  
  2         6  
  2         92  
  2         16  
  2         6  
  2         94  
  2         14  
  2         9  
  2         74  
4 12     12   79 use rlib '../../../../..';
  12     2   37  
  12         78  
  2         13  
  2         9  
  2         17  
5              
6             package Devel::Trepan::CmdProcessor::Command::Show::Timer;
7              
8 12     12   5762 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   37  
  12         636  
  2         1292  
  2         7  
  2         125  
9              
10             @ISA = qw(Devel::Trepan::CmdProcessor::Command::ShowBoolSubcmd);
11             # Values inherited from parent
12 12     12   81 use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
  12     2   33  
  12         2233  
  2         17  
  2         10  
  2         503  
13             # =pod
14             #
15             # =head2 Synopsis:
16             #
17             # =cut
18             our $HELP = <<"EOH";
19             =pod
20              
21             B<show timer>
22              
23             Show status of the timing hook.
24              
25             =head2 See also:
26              
27             L<C<set timer>|Devel::Trepan::CmdProcessor::Command::Set::Timer>
28             =cut
29             EOH
30             our $SHORT_HELP = "Show status of the timing hook";
31             our $MIN_ABBREV = length('ti');
32              
33             unless (caller) {
34             # Demo it.
35             # require_relative '../../mock'
36              
37             # # FIXME: DRY the below code
38             # my ($dbgr, $cmd) = MockDebugger::setup('show');
39             # $subcommand = __PACKAGE__->new(cmd);
40             # my $testcmdMgr = Trepan::Subcmd.new(subcommand);
41              
42             # $subcommand->run_show_bool();
43             # $subcommand->summary_help($NAME);
44             }
45              
46             1;