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
|
|
81
|
use warnings; no warnings 'redefine'; no warnings 'once'; |
|
12
|
|
|
12
|
|
35
|
|
|
12
|
|
|
12
|
|
454
|
|
|
12
|
|
|
|
|
68
|
|
|
12
|
|
|
|
|
33
|
|
|
12
|
|
|
|
|
355
|
|
|
12
|
|
|
|
|
70
|
|
|
12
|
|
|
|
|
31
|
|
|
12
|
|
|
|
|
309
|
|
4
|
12
|
|
|
12
|
|
66
|
use rlib '../../../../../..'; |
|
12
|
|
|
|
|
38
|
|
|
12
|
|
|
|
|
70
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
package Devel::Trepan::CmdProcessor::Command::Set::Debug::Skip; |
7
|
12
|
|
|
12
|
|
4953
|
use Devel::Trepan::CmdProcessor::Command::Subcmd::Subsubcmd; |
|
12
|
|
|
|
|
34
|
|
|
12
|
|
|
|
|
325
|
|
8
|
|
|
|
|
|
|
|
9
|
12
|
|
|
12
|
|
67
|
use strict; |
|
12
|
|
|
|
|
46
|
|
|
12
|
|
|
|
|
326
|
|
10
|
12
|
|
|
12
|
|
79
|
use vars qw(@ISA @SUBCMD_VARS); |
|
12
|
|
|
|
|
28
|
|
|
12
|
|
|
|
|
841
|
|
11
|
|
|
|
|
|
|
@ISA = qw(Devel::Trepan::CmdProcessor::Command::SetBoolSubsubcmd); |
12
|
|
|
|
|
|
|
# Values inherited from parent |
13
|
|
|
|
|
|
|
|
14
|
12
|
|
|
12
|
|
78
|
use vars @Devel::Trepan::CmdProcessor::Command::Subsubcmd::SUBCMD_VARS; |
|
12
|
|
|
|
|
38
|
|
|
12
|
|
|
|
|
1549
|
|
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
our $IN_LIST = 1; |
17
|
|
|
|
|
|
|
our $SHORT_HELP = 'Debug statement skipping'; |
18
|
|
|
|
|
|
|
our $HELP = <<'HELP'; |
19
|
|
|
|
|
|
|
=pod |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
B<set debug skip> [B<on>|B<off>] |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
Debug statement skipping. If "on" or "off" is not given, "on" is |
24
|
|
|
|
|
|
|
assumed. |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
=head2 See also: |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
L<C<show debug |
29
|
|
|
|
|
|
|
skip>|Devel::Trepan::CmdProcessor::Command::Show::Debug::Skip> |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
=cut |
32
|
|
|
|
|
|
|
HELP |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
our $MIN_ABBREV = length('sk'); |
35
|
12
|
|
|
12
|
|
83
|
use constant MAX_ARGS => 1; |
|
12
|
|
|
|
|
35
|
|
|
12
|
|
|
|
|
967
|
|
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
unless (caller) { |
38
|
|
|
|
|
|
|
# Demo it. |
39
|
|
|
|
|
|
|
# require_relative '../../../mock' |
40
|
|
|
|
|
|
|
# name = File.basename(__FILE__, '.rb') |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
# dbgr, set_cmd = MockDebugger::setup('set') |
43
|
|
|
|
|
|
|
# $max_cmd = __PACKAGE__->new(dbgr.core.processor, $set_cmd) |
44
|
|
|
|
|
|
|
# $cmd_ary = Trepan::SubSubcommand::SetMaxList::PREFIX |
45
|
|
|
|
|
|
|
# $cmd_name = cmd_ary.join(' ') |
46
|
|
|
|
|
|
|
# $subcmd = __PACKAGE__->new($set_cmd->{proc}, $max_cmd, $cmd_name); |
47
|
|
|
|
|
|
|
# $prefix_run = cmd_ary[1..-1] |
48
|
|
|
|
|
|
|
# $subcmd->run(prefix_run); |
49
|
|
|
|
|
|
|
# $subcmd-.run(prefix_run, qw(0)); |
50
|
|
|
|
|
|
|
# $subcmd->run(prefix_run, qw(20)); |
51
|
|
|
|
|
|
|
# $subcmd->summary_help(name); |
52
|
|
|
|
|
|
|
# print |
53
|
|
|
|
|
|
|
# print '-' x 20; |
54
|
|
|
|
|
|
|
# print $subcmd->save_command |
55
|
|
|
|
|
|
|
} |
56
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
1; |