| line |
true |
false |
branch |
|
21
|
4 |
4 |
if $initial_cfg |
|
27
|
0 |
6 |
if (defined $nsstash->{'__CONFIG__'}) |
|
42
|
0 |
8 |
if (substr($key, -2, 2) eq '::') { } |
|
53
|
1 |
13 |
unless open my $fh, '<', $file |
|
62
|
13 |
0 |
if ((my $pos = rindex($file, '/')) >= 0) |
|
68
|
6 |
7 |
$ns ? : |
|
76
|
12 |
1 |
if $sub |
|
78
|
1 |
12 |
unless ($ok) |
|
80
|
0 |
1 |
if $err =~ /Error-prone code/u |
|
81
|
1 |
0 |
unless ref $err |
|
95
|
19 |
5 |
if (index($directive, 'namespace') == 0) { } |
|
|
5 |
0 |
elsif ($directive eq 'include') { } |
|
96
|
2 |
17 |
if $directive eq 'namespace-abs' |
|
97
|
4 |
15 |
$ns ? : |
|
98
|
17 |
2 |
if $rest =~ /\s*(\S+)/u |
|
109
|
5 |
0 |
if ($curpkg ne 'NS') |
|
113
|
5 |
0 |
$dir ? : |
|
|
5 |
0 |
unless (substr($file, 0, 1) eq '/') |
|
114
|
1 |
4 |
if (index($file, '*') >= 0) { } |
|
126
|
0 |
23 |
if defined $config->{'assign_proc'} |
|
128
|
8 |
83 |
if $key eq 'BEGIN' or $key eq 'DESTROY' or $key eq 'AUTOLOAD' or index($key, '__ANON__') == 0 |
|
129
|
18 |
65 |
if (substr($key, -2, 2) eq '::') |
|
133
|
0 |
65 |
unless my $glob = $stash->{$key} |
|
134
|
0 |
65 |
if not defined $$glob and defined *$glob{'CODE'} |
|
135
|
0 |
65 |
if (defined $assign_proc) { } |
|
146
|
8 |
10 |
$ns ? : |
|
147
|
1 |
17 |
if (exists $dest->{$subns}) |