| line |
true |
false |
branch |
|
20
|
4 |
4 |
if $initial_cfg
|
|
26
|
0 |
6 |
if (defined $nsstash->{'__CONFIG__'})
|
|
41
|
0 |
8 |
if (substr($key, -2, 2) eq '::') { }
|
|
52
|
1 |
13 |
unless open my $fh, '<', $file
|
|
61
|
13 |
0 |
if ((my $pos = rindex($file, '/')) >= 0)
|
|
67
|
6 |
7 |
$ns ? :
|
|
75
|
12 |
1 |
if $sub
|
|
77
|
1 |
12 |
unless ($ok)
|
|
79
|
0 |
1 |
if $err =~ /Error-prone code/u
|
|
80
|
1 |
0 |
unless ref $err
|
|
94
|
19 |
5 |
if (index($directive, 'namespace') == 0) { }
|
|
|
5 |
0 |
elsif ($directive eq 'include') { }
|
|
95
|
2 |
17 |
if $directive eq 'namespace-abs'
|
|
96
|
4 |
15 |
$ns ? :
|
|
97
|
17 |
2 |
if $rest =~ /\s*(\S+)/u
|
|
108
|
5 |
0 |
if ($curpkg ne 'NS')
|
|
112
|
5 |
0 |
$dir ? :
|
|
|
5 |
0 |
unless (substr($file, 0, 1) eq '/')
|
|
113
|
1 |
4 |
if (index($file, '*') >= 0) { }
|
|
125
|
0 |
23 |
if defined $config->{'assign_proc'}
|
|
127
|
8 |
83 |
if $key eq 'BEGIN' or $key eq 'DESTROY' or $key eq 'AUTOLOAD' or index($key, '__ANON__') == 0
|
|
128
|
18 |
65 |
if (substr($key, -2, 2) eq '::')
|
|
132
|
0 |
65 |
unless my $glob = $stash->{$key}
|
|
133
|
0 |
65 |
if not defined $$glob and defined *$glob{'CODE'}
|
|
134
|
0 |
65 |
if (defined $assign_proc) { }
|
|
145
|
8 |
10 |
$ns ? :
|
|
146
|
1 |
17 |
if (exists $dest->{$subns})
|