File Coverage

lib/Devel/Trepan/CmdProcessor/Command/Info.pm
Criterion Covered Total %
statement 63 63 100.0
branch n/a
condition n/a
subroutine 21 21 100.0
pod n/a
total 84 84 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   96 use warnings; no warnings 'redefine';
  12     12   25  
  12     1   402  
  12     1   64  
  12         20  
  12         634  
  1         8  
  1         2  
  1         25  
  1         4  
  1         2  
  1         44  
4              
5             package Devel::Trepan::CmdProcessor::Command::Info;
6 12     12   72 use rlib '../../../..';
  12     1   21  
  12         74  
  1         6  
  1         3  
  1         4  
7              
8 12     12   4826 use if !@ISA, Devel::Trepan::CmdProcessor::Command::Subcmd::SubMgr;
  12     1   24  
  12         65  
  1         386  
  1         2  
  1         6  
9 12     12   39219 use if !@ISA, Devel::Trepan::CmdProcessor::Command;
  12     1   31  
  12         61  
  1         34  
  1         2  
  1         3  
10             unless (@ISA) {
11 12     12   74 eval <<'EOE';
  12     12   28  
  12     12   679  
  12     12   70  
  12     12   25  
  12         731  
  12         71  
  12         24  
  12         562  
  12         74  
  12         27  
  12         520  
  12         71  
  12         21  
  12         490  
12             use constant SHORT_HELP => 'Information about debugged program and its environment';
13             use constant CATEGORY => 'status';
14             use constant MIN_ARGS => 0; # Need at least this many
15             use constant MAX_ARGS => undef; # Need at most this many - undef -> unlimited.
16             use constant NEED_STACK => 0;
17             EOE
18             }
19              
20 12     12   1709 use strict;
  12     1   28  
  12         355  
  1         55  
  1         3  
  1         22  
21 12     12   62 use vars qw(@ISA);
  12     1   26  
  12         603  
  1         4  
  1         3  
  1         52  
22             @ISA = qw(Devel::Trepan::CmdProcessor::Command::SubcmdMgr);
23 12     12   69 use vars @CMD_VARS;
  12     1   29  
  12         2338  
  1         5  
  1         2  
  1         169  
24              
25             our $NAME = set_name();
26             =pod
27              
28             =head2 Synopsis:
29              
30             =cut
31              
32             our $HELP = <<'HELP';
33             =pod
34              
35             B<info> [I<info sub-commmand> ...]
36              
37             Generic command for showing things about the program being debugged.
38              
39             You can give unique prefix of the name of a subcommand to get
40             information about just that subcommand.
41              
42             Type C<info> for a list of subcommands and what they do.
43              
44             Type C<help info *> for a list of C<info> subcommands.
45              
46             =head2 See also:
47              
48             L<C<info breakpoints>|Devel::Trepan::CmdProcessor::Command::Info::Breakpoints>,
49             L<C<info files>|Devel::Trepan::CmdProcessor::Command::Info::Files>,
50             L<C<info frame>|Devel::Trepan::CmdProcessor::Command::Info::Frame>,
51             L<C<info functions>|Devel::Trepan::CmdProcessor::Command::Info::Functions>,
52             L<C<info line>|Devel::Trepan::CmdProcessor::Command::Info::Line>,
53             L<C<info macros>|Devel::Trepan::CmdProcessor::Command::Info::Macros>,
54             L<C<info packages>|Devel::Trepan::CmdProcessor::Command::Info::Packages>,
55             L<C<info program>|Devel::Trepan::CmdProcessor::Command::Info::Program>,
56             L<C<info return>|Devel::Trepan::CmdProcessor::Command::Info::Return>,
57             L<C<info signals>|Devel::Trepan::CmdProcessor::Command::Info::Signals>,
58             L<C<info variables>|Devel::Trepan::CmdProcessor::Command::Info::Variables>,
59             and
60             L<C<info watch>|Devel::Trepan::CmdProcessor::Command::Info::Watch>
61             =cut
62             HELP
63              
64             unless (caller) {
65             require Devel::Trepan::CmdProcessor;
66             my $proc = Devel::Trepan::CmdProcessor->new(undef, 'bogus');
67             my $cmd = Devel::Trepan::CmdProcessor::Command::Info->new($proc, $NAME);
68             # require_relative '../mock'
69             # dbgr, cmd = MockDebugger::setup
70             $cmd->run([$NAME])
71             }
72              
73             1;