| line |
true |
false |
branch |
|
109
|
1 |
0 |
if (defined %main::DB::) |
|
128
|
0 |
0 |
if $ret |
|
130
|
0 |
0 |
if (defined $ret) { } |
|
131
|
0 |
0 |
unless $ret |
|
155
|
1 |
47 |
if ($module =~ /^5(?:\.|$)/ or ord substr($module, 0, 1) == 5) |
|
159
|
1 |
0 |
$module =~ /^5(?:\.|$)/ ? : |
|
|
0 |
1 |
$module eq '5' ? : |
|
175
|
43 |
4 |
if (exists $INC{$module}) |
|
198
|
1 |
3 |
unless ($INC{$$self{'mod'}}) |
|
207
|
1 |
3 |
if (my $err = $@) |
|
210
|
1 |
0 |
if ($err =~ /^(Can't locate .*\)) at /) |
|
214
|
0 |
1 |
$from[6] || $from[3] =~ /::BEGIN$/ ? : |
|
233
|
0 |
1 |
if $args{'is_root'} |
|
236
|
0 |
1 |
if (my $dir = $args{'in_tree'}) { } |
|
241
|
0 |
0 |
if ($$ != $args{'init_pid'}) |
|
244
|
0 |
0 |
unless open $fh, '>', $outfile |
|
268
|
0 |
1 |
if (@args) |
|
269
|
0 |
0 |
if ($args[0] eq 'tree') { } |
|
|
0 |
0 |
elsif ($args[0] =~ s/^tree=//) { } |
|
272
|
0 |
0 |
if (-e $dir) { } |