| line |
true |
false |
branch |
|
35
|
100 |
2 |
defined &$sub ? : |
|
47
|
0 |
6 |
if ($s_type eq 'SCALAR') { } |
|
|
1 |
5 |
elsif ($s_type eq 'ARRAY') { } |
|
|
5 |
0 |
elsif ($s_type eq 'HASH') { } |
|
55
|
0 |
6 |
unless $s |
|
61
|
6 |
0 |
defined $var_name ? : |
|
62
|
1 |
5 |
$s_type eq 'ARRAY' ? : |
|
|
0 |
6 |
$s_type eq 'SCALAR' ? : |
|
65
|
0 |
6 |
if ($s_type eq 'SCALAR') { } |
|
|
1 |
5 |
elsif ($s_type eq 'ARRAY') { } |
|
|
5 |
0 |
elsif ($s_type eq 'HASH') { } |
|
68
|
0 |
1 |
if @$s_ |
|
70
|
0 |
5 |
if %$s_ |
|
95
|
7 |
45 |
if (ref $test eq 'Regexp') { } |
|
|
0 |
45 |
elsif (ref $test eq 'CODE') { } |
|
107
|
74 |
29 |
unless $test |
|
108
|
28 |
1 |
if ($tested) |
|
109
|
19 |
9 |
if grep $self->_match($_, $tested), @$test |
|
116
|
0 |
62 |
if $QUIET |
|
122
|
20 |
42 |
if ($op->{'key'} or $op->{'value'}) |
|
125
|
0 |
20 |
if ($args{'key'} and $op->{'key'} and $op->{'value'}) { } |
|
|
6 |
14 |
elsif ($args{'key'} and $op->{'key'}) { } |
|
|
14 |
0 |
elsif ($op->{'value'}) { } |
|
126
|
0 |
0 |
unless $key or $value |
|
128
|
2 |
4 |
unless $key |
|
130
|
6 |
8 |
unless $value |
|
137
|
0 |
54 |
unless $self->_matching($self->{'options'}{'debug_value'}, $value) |
|
139
|
0 |
54 |
unless grep((lc $class eq lc $_), @{$$op{'use'};}) |
|
143
|
52 |
2 |
if (defined $self->{'options'}{'pkg'}) { } |
|
158
|
0 |
116 |
if (not $c) { } |
|
|
54 |
62 |
elsif (not $c =~ /^Tie::Trace/) { } |
|
166
|
0 |
54 |
ref $caller ? : |
|
170
|
0 |
54 |
unless $f and $l |
|
177
|
54 |
0 |
@line == 1 ? : |
|
183
|
35 |
1 |
if ($s_type eq 'HASH') { } |
|
|
1 |
0 |
elsif ($s_type eq 'ARRAY') { } |
|
189
|
26 |
10 |
unless ref $p and $p = $p->parent |
|
191
|
26 |
28 |
@msg > 0 ? : |
|
194
|
0 |
54 |
unless defined $value |
|
195
|
2 |
52 |
if ($class eq 'Scalar') { } |
|
|
19 |
33 |
elsif ($class eq 'Array') { } |
|
|
33 |
0 |
elsif ($class eq 'Hash') { } |
|
198
|
4 |
15 |
if (not defined $args->{'point'}) { } |
|
205
|
21 |
12 |
!$self->{'options'}{'pkg'} || @msg ? : |
|
212
|
0 |
54 |
if (ref $debug eq 'CODE') { } |
|
|
39 |
15 |
elsif (lc $debug eq 'dumper') { } |
|
216
|
8 |
31 |
if (defined $filter) |
|
226
|
29 |
1 |
unless exists $arg{$_} |
|
229
|
8 |
22 |
if ($class =~ /^Tie::Trace$/) |
|
236
|
22 |
8 |
if (defined $parent and $parent) { } |
|
240
|
8 |
0 |
unless ($options->{'use'}) |
|
243
|
4 |
4 |
unless (defined $options->{'r'}) |
|
254
|
20 |
10 |
if exists $arg{'__key'} |
|
255
|
2 |
28 |
if exists $arg{'__point'} |
|
262
|
7 |
149 |
unless $self->{'options'}{'r'} |
|
269
|
149 |
0 |
if (defined $ref) |
|
271
|
22 |
404 |
if ($ref eq $test{$i}) { } |
|
|
2 |
441 |
elsif (defined $structure and $structure =~ /=$test{$i}/) { } |
|
275
|
0 |
2 |
$i == 2 ? : |
|
|
0 |
2 |
$i == 1 ? : |
|
276
|
0 |
2 |
$tied ? : |
|
282
|
147 |
2 |
unless ($class or $tied) |
|
283
|
6 |
141 |
if (($type & 25) == 1) { } |
|
|
5 |
136 |
elsif (($type & 26) == 2) { } |
|
|
11 |
125 |
elsif (($type & 28) == 4) { } |
|
319
|
39 |
9 |
unless $Tie::Trace::QUIET |
|
331
|
1 |
1 |
defined $deleted ? : |
|
|
2 |
0 |
unless $Tie::Trace::QUIET |
|
351
|
9 |
23 |
unless $Tie::Trace::QUIET |
|
363
|
0 |
1 |
defined $deleted ? : |
|
|
1 |
0 |
unless $Tie::Trace::QUIET |
|
370
|
9 |
0 |
@_ ? : |
|
374
|
8 |
1 |
if ($caller_pkg eq 'Tie::Trace::Array') |
|
378
|
0 |
9 |
if $off < 0 |
|
379
|
9 |
0 |
@_ ? : |
|
381
|
2 |
6 |
$off < $to ? : |
|
|
1 |
8 |
$off eq $to ? : |
|
382
|
4 |
5 |
$func && $func ne 'STORESIZE' ? : |
|
383
|
9 |
0 |
unless $Tie::Trace::QUIET |
|
385
|
5 |
4 |
if (@_) |
|
392
|
6 |
3 |
if (@_ != $len) |
|
453
|
2 |
6 |
unless $Tie::Trace::QUIET |