| line |
true |
false |
branch |
|
14
|
0 |
2 |
if ($^O =~ /^(dos|os2)/i) { } |
|
|
0 |
2 |
elsif ($^O =~ /^MacOS/i) { } |
|
26
|
0 |
0 |
unless defined $dir |
|
27
|
0 |
0 |
if ref $dir |
|
29
|
0 |
0 |
if -f $path |
|
37
|
0 |
0 |
unless open my $fh, '<', $path |
|
51
|
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 |
|
63
|
0 |
0 |
unless defined $opts{'allow_core'} |
|
64
|
0 |
0 |
unless defined $opts{'allow_noncore'} |
|
66
|
0 |
0 |
if ($opts{'filter'} and not ref $opts{'filter'}) |
|
69
|
0 |
0 |
if $@ |
|
72
|
0 |
0 |
if ($opts{'extra_inc'}) |
|
76
|
0 |
0 |
unless ($orig_inc) |
|
83
|
0 |
0 |
if $_ ne $lib::filter::Config{'privlibexp'} |
|
85
|
0 |
0 |
if ($opts{'allow'}) |
|
90
|
0 |
0 |
if ($opts{'allow_list'}) |
|
92
|
0 |
0 |
unless open my $fh, '<', $opts{'allow_list'} |
|
95
|
0 |
0 |
unless $line =~ /^(\w+(?:::\w+)*)/ |
|
101
|
0 |
0 |
if ($opts{'disallow'}) |
|
107
|
0 |
0 |
if ($opts{'disallow_list'}) |
|
109
|
0 |
0 |
unless open my $fh, '<', $opts{'disallow_list'} |
|
112
|
0 |
0 |
unless $line =~ /^(\w+(?:::\w+)*)/ |
|
123
|
0 |
0 |
if $opts{'debug'} |
|
130
|
0 |
0 |
if ($opts{'filter'}) |
|
132
|
0 |
0 |
if $opts{'debug'} |
|
133
|
0 |
0 |
unless ($opts{'filter'}->($mod)) |
|
137
|
0 |
0 |
if ($opts{'disallow_re'} and $mod =~ /$opts{'disallow_re'}/) |
|
140
|
0 |
0 |
if ($disallow{$mod}) |
|
143
|
0 |
0 |
if ($opts{'allow_re'} and $mod =~ /$opts{'allow_re'}/) |
|
144
|
0 |
0 |
if $opts{'debug'} |
|
146
|
0 |
0 |
if $path |
|
149
|
0 |
0 |
if ($allow{$mod}) |
|
150
|
0 |
0 |
if $opts{'debug'} |
|
152
|
0 |
0 |
if $path |
|
155
|
0 |
0 |
if ($opts{'allow_is_recursive'}) |
|
159
|
0 |
0 |
if (index($caller[1], $_) == 0) |
|
169
|
0 |
0 |
if (exists $INC{$pm}) |
|
171
|
0 |
0 |
if ($path) |
|
172
|
0 |
0 |
if $opts{'debug'} |
|
180
|
0 |
0 |
if ($opts{'allow_noncore'} and $opts{'allow_core'}) { } |
|
|
0 |
0 |
elsif ($opts{'allow_core'}) { } |
|
|
0 |
0 |
elsif ($opts{'allow_noncore'}) { } |
|
187
|
0 |
0 |
if ($inc) |
|
188
|
0 |
0 |
if $opts{'debug'} |
|
191
|
0 |
0 |
if $path |
|
194
|
0 |
0 |
unless ($path) |
|
195
|
0 |
0 |
if $opts{'debug'} |
|
199
|
0 |
0 |
if $opts{'debug'} |
|
208
|
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) { } |
|
224
|
0 |
0 |
unless $hook |