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) |