| line |
true |
false |
branch |
|
24
|
6 |
0 |
unless defined $dumpcode |
|
43
|
6 |
18 |
if (&blessed($self)) { } |
|
45
|
6 |
0 |
unless @$tags |
|
54
|
7 |
5 |
if ($option =~ /^tags?=(.+)$/) { } |
|
|
4 |
1 |
elsif ($option eq '+loadcode') { } |
|
|
1 |
0 |
elsif ($option eq '-dumpcode') { } |
|
72
|
22 |
6 |
if ($type eq '!perl') { } |
|
|
6 |
0 |
elsif ($type eq '!!perl') { } |
|
87
|
4 |
20 |
if ($tagtypes{'!perl'} and $tagtypes{'!!perl'}) { } |
|
|
18 |
2 |
elsif ($tagtypes{'!perl'}) { } |
|
|
2 |
0 |
elsif ($tagtypes{'!!perl'}) { } |
|
99
|
5 |
19 |
if ($classes) |
|
100
|
1 |
4 |
if (@$classes) { } |
|
110
|
5 |
19 |
if ($loadcode) { } |
|
132
|
1 |
4 |
if $no_objects |
|
156
|
3 |
16 |
if $no_objects |
|
184
|
4 |
20 |
if ($no_objects) { } |
|
227
|
4 |
20 |
if $no_objects |
|
248
|
4 |
20 |
if $no_objects |
|
268
|
4 |
20 |
if $no_objects |
|
308
|
4 |
20 |
if $no_objects |
|
345
|
4 |
20 |
if $no_objects |
|
368
|
4 |
1 |
$dumpcode ? : |
|
386
|
0 |
40 |
unless ($blessed =~ /^$class_regex$/) |
|
391
|
6 |
34 |
if ($node->{'reftype'} eq 'HASH') { } |
|
|
10 |
24 |
elsif ($node->{'reftype'} eq 'ARRAY') { } |
|
|
8 |
16 |
elsif ($node->{'reftype'} eq 'REGEXP') { } |
|
|
4 |
12 |
elsif ($node->{'reftype'} eq 'SCALAR') { } |
|
|
4 |
8 |
elsif ($node->{'reftype'} eq 'REF') { } |
|
|
5 |
3 |
elsif ($node->{'reftype'} eq 'CODE') { } |
|
|
3 |
0 |
elsif ($node->{'reftype'} eq 'GLOB') { } |
|
400
|
4 |
4 |
if ($blessed eq "Regexp") |
|
408
|
0 |
4 |
if ($blessed eq 'Regexp') { } |
|
|
0 |
4 |
elsif ($] <= 5.010001 and not defined ${$$node{'value'};} and $node->{'value'} =~ /^\(\?/) { } |
|
433
|
4 |
1 |
$dumpcode ? : |
|
450
|
2 |
10 |
unless ($code =~ /^ \s* \{ .* \} \s* \z/sx) |
|
455
|
2 |
8 |
if ($@) |
|
463
|
2 |
9 |
if ($regex =~ /^$qr_prefix(.*)\)\z/s) |
|
472
|
0 |
10 |
if (@$list % 2) |
|
476
|
1 |
9 |
unless my $name = delete $globdata{'NAME'} |
|
478
|
1 |
8 |
unless defined $pkg |
|
481
|
1 |
8 |
if (my(@keys) = keys %globdata) |
|
490
|
4 |
24 |
if (@$list != 2) |
|
494
|
4 |
20 |
unless ($key eq "=") |
|
528
|
9 |
54 |
if ($type eq 'SCALAR') { } |
|
|
9 |
45 |
elsif ($type eq 'IO') { } |
|
532
|
5 |
4 |
if (defined $value) |
|
535
|
5 |
0 |
if ($value->{'fileno'} = fileno do {
$glob
}) |
|
541
|
35 |
28 |
if defined $value |
|
549
|
8 |
0 |
if ($regex =~ /^$qr_prefix(.*)\)\z/s) |