| line |
true |
false |
branch |
|
16
|
0 |
2 |
if ($^O =~ /^(dos|os2)/i) { } |
|
|
0 |
2 |
elsif ($^O =~ /^MacOS/i) { } |
|
28
|
0 |
0 |
unless defined $dir |
|
29
|
0 |
0 |
if ref $dir |
|
31
|
0 |
0 |
if -f $path |
|
39
|
0 |
0 |
unless open my $fh, '<', $path |
|
56
|
0 |
0 |
unless /\A(
debug|
allow_core|allow_noncore|
extra_inc|
allow|allow_list|allow_re|
allow_is_recursive|
disallow|disallow_list|disallow_re|
filter
)\z/x |
|
68
|
0 |
0 |
unless defined $opts{'debug'} |
|
70
|
0 |
0 |
unless defined $opts{'allow_core'} |
|
71
|
0 |
0 |
unless defined $opts{'allow_noncore'} |
|
73
|
0 |
0 |
if ($opts{'filter'} and not ref $opts{'filter'}) |
|
76
|
0 |
0 |
if $@ |
|
79
|
0 |
0 |
if ($opts{'extra_inc'}) |
|
83
|
0 |
0 |
unless ($orig_inc) |
|
90
|
0 |
0 |
if $_ ne $lib::filter::Config{'privlibexp'} |
|
92
|
0 |
0 |
if ($opts{'allow'}) |
|
97
|
0 |
0 |
if ($opts{'allow_list'}) |
|
99
|
0 |
0 |
unless open my $fh, '<', $opts{'allow_list'} |
|
102
|
0 |
0 |
unless $line =~ /^(\w+(?:::\w+)*)/ |
|
108
|
0 |
0 |
if ($opts{'disallow'}) |
|
114
|
0 |
0 |
if ($opts{'disallow_list'}) |
|
116
|
0 |
0 |
unless open my $fh, '<', $opts{'disallow_list'} |
|
119
|
0 |
0 |
unless $line =~ /^(\w+(?:::\w+)*)/ |
|
130
|
0 |
0 |
if $opts{'debug'} |
|
137
|
0 |
0 |
if ($opts{'filter'}) |
|
139
|
0 |
0 |
if $opts{'debug'} |
|
140
|
0 |
0 |
unless ($opts{'filter'}->($mod)) |
|
144
|
0 |
0 |
if ($opts{'disallow_re'} and $mod =~ /$opts{'disallow_re'}/) |
|
147
|
0 |
0 |
if ($disallow{$mod}) |
|
150
|
0 |
0 |
if ($opts{'allow_re'} and $mod =~ /$opts{'allow_re'}/) |
|
151
|
0 |
0 |
if $opts{'debug'} |
|
153
|
0 |
0 |
if $path |
|
156
|
0 |
0 |
if ($allow{$mod}) |
|
157
|
0 |
0 |
if $opts{'debug'} |
|
159
|
0 |
0 |
if $path |
|
162
|
0 |
0 |
if ($opts{'allow_is_recursive'}) |
|
166
|
0 |
0 |
if (index($caller[1], $_) == 0) |
|
176
|
0 |
0 |
if (exists $INC{$pm}) |
|
178
|
0 |
0 |
if ($path) |
|
179
|
0 |
0 |
if $opts{'debug'} |
|
187
|
0 |
0 |
if ($opts{'allow_noncore'} and $opts{'allow_core'}) { } |
|
|
0 |
0 |
elsif ($opts{'allow_core'}) { } |
|
|
0 |
0 |
elsif ($opts{'allow_noncore'}) { } |
|
194
|
0 |
0 |
if ($inc) |
|
195
|
0 |
0 |
if $opts{'debug'} |
|
198
|
0 |
0 |
if $path |
|
201
|
0 |
0 |
unless ($path) |
|
202
|
0 |
0 |
if $opts{'debug'} |
|
206
|
0 |
0 |
if $opts{'debug'} |
|
216
|
0 |
0 |
if ("$mod" eq "$hook") { } |
|
|
0 |
0 |
elsif ($opts{'allow_core'} and grep {$mod eq $_;} @$core_inc) { } |
|
|
0 |
0 |
elsif ($opts{'allow_noncore'} and grep {$mod eq $_;} @$noncore_inc) { } |
|
232
|
0 |
0 |
unless $hook |