| line |
true |
false |
branch |
|
24
|
6 |
0 |
unless defined $dumpcode |
|
43
|
6 |
18 |
if (builtin::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 |
|
184
|
4 |
20 |
if ($no_objects) { } |
|
372
|
4 |
1 |
$dumpcode ? : |
|
390
|
0 |
40 |
unless ($blessed =~ /^$class_regex$/) |
|
395
|
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') { } |
|
404
|
4 |
4 |
if ($blessed eq "Regexp") |
|
412
|
0 |
4 |
if ($blessed eq 'Regexp') { } |
|
|
0 |
4 |
elsif ($] <= 5.010001 and not defined ${$$node{'value'};} and $node->{'value'} =~ /^\(\?/) { } |
|
437
|
4 |
1 |
$dumpcode ? : |
|
454
|
2 |
10 |
unless ($code =~ /^ \s* \{ .* \} \s* \z/sx) |
|
459
|
2 |
8 |
if ($@) |
|
467
|
2 |
9 |
if ($regex =~ /^$qr_prefix(.*)\)\z/s) |
|
476
|
0 |
10 |
if (@$list % 2) |
|
480
|
1 |
9 |
unless my $name = delete $globdata{'NAME'} |
|
482
|
1 |
8 |
unless defined $pkg |
|
485
|
1 |
8 |
if (my(@keys) = keys %globdata) |
|
494
|
4 |
26 |
if (@$list != 2) |
|
498
|
4 |
22 |
unless ($key eq "=") |
|
532
|
9 |
54 |
if ($type eq 'SCALAR') { } |
|
|
9 |
45 |
elsif ($type eq 'IO') { } |
|
536
|
5 |
4 |
if (defined $value) |
|
539
|
5 |
0 |
if ($value->{'fileno'} = fileno do {
$glob
}) |
|
545
|
35 |
28 |
if defined $value |
|
553
|
8 |
0 |
if ($regex =~ /^$qr_prefix(.*)\)\z/s) |