| line |
true |
false |
branch |
|
210
|
0 |
4 |
if $ENV{'MOD_PERL'} |
|
214
|
2 |
3 |
unless $_[1] |
|
215
|
1 |
2 |
$_[1] eq ':enable' ? : |
|
235
|
6 |
1 |
defined $_[0] ? : |
|
|
2 |
5 |
unless my $module = defined $_[0] ? "$_[0]" : '' |
|
237
|
1 |
4 |
unless $module =~ /^[^\W\d]\w*(?:(?:\'|::)[^\W\d]\w*)*$/ |
|
242
|
0 |
4 |
if $INC{$file} |
|
243
|
0 |
4 |
if $prefork::MODULES{$module} |
|
246
|
2 |
2 |
if $prefork::FORKING |
|
271
|
1 |
3 |
if $prefork::FORKING |
|
279
|
0 |
2 |
if $INC{$file} |
|
328
|
3 |
8 |
unless ($reftype and $reftype eq 'CODE') |
|
333
|
2 |
6 |
if ($prefork::FORKING) |
|
339
|
1 |
5 |
if (&List::Util::first(sub {
&Scalar::Util::refaddr($function) == &Scalar::Util::refaddr($_);
}
, @prefork::NOTIFY)) |