| 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 {
|
|
545
|
35 |
28 |
if defined $value
|
|
553
|
8 |
0 |
if ($regex =~ /^$qr_prefix(.*)\)\z/s)
|