| line |
true |
false |
branch |
|
21
|
4 |
4 |
if $initial_cfg |
|
36
|
0 |
8 |
if (substr($key, -2, 2) eq '::') { } |
|
47
|
1 |
13 |
unless open my $fh, '<', $file |
|
56
|
13 |
0 |
if ((my $pos = rindex($file, '/')) >= 0) |
|
62
|
6 |
7 |
$ns ? : |
|
70
|
12 |
1 |
if $sub |
|
72
|
1 |
12 |
unless ($ok) |
|
74
|
0 |
1 |
if $err =~ /Error-prone code/u |
|
75
|
1 |
0 |
unless ref $err |
|
89
|
19 |
5 |
if (index($directive, 'namespace') == 0) { } |
|
|
5 |
0 |
elsif ($directive eq 'include') { } |
|
90
|
2 |
17 |
if $directive eq 'namespace-abs' |
|
91
|
4 |
15 |
$ns ? : |
|
92
|
17 |
2 |
if $rest =~ /\s*(\S+)/u |
|
103
|
5 |
0 |
if ($curpkg ne 'NS') |
|
107
|
5 |
0 |
$dir ? : |
|
|
5 |
0 |
unless (substr($file, 0, 1) eq '/') |
|
108
|
1 |
4 |
if (index($file, '*') >= 0) { } |
|
119
|
8 |
83 |
if $key eq 'BEGIN' or $key eq 'DESTROY' or $key eq 'AUTOLOAD' or index($key, '__ANON__') == 0 |
|
120
|
18 |
65 |
if (substr($key, -2, 2) eq '::') |
|
124
|
0 |
65 |
unless my $glob = $$stash{$key} |
|
125
|
0 |
65 |
if not defined $$glob and defined *$glob{'CODE'} |
|
132
|
8 |
10 |
$ns ? : |
|
133
|
1 |
17 |
if (exists $$dest{$subns}) |