File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Show_Subcmd/Args.pm
Criterion Covered Total %
statement 36 46 78.2
branch n/a
condition n/a
subroutine 12 14 85.7
pod n/a
total 48 60 80.0


line stmt bran cond sub pod time code
1             # -*- coding: utf-8 -*-
2             # Copyright (C) 2012, 2014 Rocky Bernstein <rocky@cpan.org>
3 12     12   101 use warnings; no warnings 'redefine'; no warnings 'once';
  12     12   42  
  12     12   478  
  12     2   78  
  12     2   35  
  12     2   372  
  12         72  
  12         36  
  12         423  
  2         24  
  2         8  
  2         84  
  2         15  
  2         5  
  2         72  
  2         14  
  2         8  
  2         62  
4 12     12   74 use rlib '../../../../..';
  12     2   41  
  12         72  
  2         12  
  2         7  
  2         14  
5 12     12   4785 use Devel::Trepan::CmdProcessor::Command::Subcmd::Core;
  12     2   33  
  12         638  
  2         1036  
  2         6  
  2         126  
6              
7             package Devel::Trepan::CmdProcessor::Command::Show::Args;
8              
9              
10             @ISA = qw(Devel::Trepan::CmdProcessor::Command::Subcmd);
11             # Values inherited from parent
12 12     12   67 use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
  12     2   34  
  12         2769  
  2         14  
  2         6  
  2         545  
13              
14             =pod
15              
16             =head2 Synopsis:
17              
18             =cut
19             our $HELP = <<"EOH";
20             =pod
21              
22             B<show args>
23              
24             Show Arguments to restart program.
25              
26             =head2 See also:
27              
28             L<C<set args>|Devel::Trepan::CmdProcessor::Command::Set::Args> and
29             L<C<run>|Devel::Trepan::CmdProcessor::Run>.
30              
31             =cut
32             EOH
33             our $SHORT_HELP = "Arguments to restart program";
34             our $MIN_ABBREV = length('ar');
35              
36             sub run($$)
37             {
38 0     0     my ($self, $args) = @_;
  0     0      
39 0           my $proc = $self->{proc};
  0            
40 0           my @script = $proc->restart_args();
  0            
41 0           $proc->msg("Argument list to give program being debugged when it is started is:");
  0            
42 0           $proc->msg(join(' ', @script));
  0            
43             }
44              
45             unless (caller) {
46             # Demo it.
47             # require_relative '../../mock'
48              
49             # # FIXME: DRY the below code
50             # my ($dbgr, $cmd) = MockDebugger::setup('show');
51             # $subcommand = __PACKAGE__->new($cmd);
52             # $testcmdMgr = Trepan::Subcmd->new($subcommand);
53              
54             # $subcommand->run_show_bool();
55             # $subcommand->summary_help($NAME);
56             }
57              
58             1;