| line |
true |
false |
branch |
|
33
|
0 |
0 |
unless my $dir = eval {
do {
&$sub()
}
} |
|
35
|
0 |
0 |
if -d $dir and -w $dir |
|
42
|
0 |
0 |
unless my $dir = $self->_perldocjp_dir |
|
48
|
0 |
0 |
if (not $self->opt_F and $self->opt_J || $pages->[0] && $pages->[0] =~ /^https?:/) |
|
56
|
0 |
0 |
$page =~ /^https?:/ ? : |
|
58
|
0 |
0 |
unless ($file->exists and $file->stat->size and $file->stat->mtime > time - 86400) |
|
60
|
0 |
0 |
unless ($res->{'success'}) |
|
65
|
0 |
0 |
if ($res->{'redirects'}) |
|
70
|
0 |
0 |
unless $res->{'success'} |
|
73
|
0 |
0 |
unless ($pod =~ /^=encoding\s/m) |
|
79
|
0 |
0 |
if (ref $enc) { } |
|
|
0 |
0 |
elsif (my $ctype = $res->{'headers'}{'content-type'}) { } |
|
85
|
0 |
0 |
if ($encoding) |
|
91
|
0 |
0 |
if $file->stat->size |
|
93
|
0 |
0 |
if @found |
|
98
|
0 |
0 |
if ($self->opt_J) |
|
101
|
0 |
0 |
unless ($pod =~ /^=encoding\s/m) |
|
104
|
0 |
0 |
if (ref $enc) |
|
106
|
0 |
0 |
if $encoding eq 'ascii' |
|
110
|
0 |
0 |
if $file->stat->size |
|
123
|
0 |
0 |
unless defined $rest and length $rest |
|
124
|
0 |
0 |
if ($rest =~ /^(\w+)$/s) { } |
|
178
|
0 |
0 |
if $self->opt_a |
|
180
|
0 |
0 |
if $self->opt_f |
|
182
|
0 |
0 |
if $self->opt_v |
|
184
|
0 |
0 |
if $self->opt_q |
|
186
|
0 |
0 |
if (not $self->opt_f || $self->opt_q || $self->opt_v || $self->opt_a) { } |
|
|
0 |
0 |
elsif (@dynamic_pod) { } |
|
191
|
0 |
0 |
if ($] >= 5.008 and $self->opt_L) |
|
202
|
0 |
0 |
if $in_list |
|
203
|
0 |
0 |
unless print $buffd map({&encode_utf8($_);} @dynamic_pod) |
|
204
|
0 |
0 |
if $in_list |
|
206
|
0 |
0 |
unless close $buffd |
|
228
|
0 |
0 |
unless open PFUNC, '<', $perlfunc |
|
232
|
0 |
0 |
$self->opt_f =~ /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/ ? : |
|
241
|
0 |
0 |
if ($self->opt_L and defined $self->{'translators'}[0]) |
|
243
|
0 |
0 |
if $tr->can('search_perlfunc_re') |
|
244
|
0 |
0 |
if ($] < 5.008) { } |
|
257
|
0 |
0 |
if (/^=encoding\s+(\S+)/) |
|
260
|
0 |
0 |
if /^=head2 $re/ |
|
272
|
0 |
0 |
if grep {$self->opt_f eq $_;} @perlops |
|
274
|
0 |
0 |
if (/^=over/ and not $found) { } |
|
|
0 |
0 |
elsif (/^=back/ and not $found and $inlist) { } |
|
282
|
0 |
0 |
if (/^=item\s+$search_re\b/ and $inlist < 2) { } |
|
|
0 |
0 |
elsif (@related > 1 and /^=item/) { } |
|
|
0 |
0 |
elsif (/^=item/) { } |
|
|
0 |
0 |
elsif ($found and /^X<[^>]+>/) { } |
|
287
|
0 |
0 |
if (/^=item\s+(?:$related_re)\b/) { } |
|
291
|
0 |
0 |
if $found > 1 and $inlist < 2 |
|
295
|
0 |
0 |
if $found > 1 and $inlist < 2 |
|
300
|
0 |
0 |
unless $found |
|
301
|
0 |
0 |
if (/^=over/) { } |
|
|
0 |
0 |
elsif (/^=back/) { } |
|
309
|
0 |
0 |
if /^\w/ |
|
312
|
0 |
0 |
unless (@$pod) |
|
316
|
0 |
0 |
unless (@$pod) |
|
322
|
0 |
0 |
unless close PFUNC |
|
332
|
0 |
0 |
unless ($opt =~ /^ (?: [\@\%\$]\S+ | [A-Z]\w* ) $/x) |
|
339
|
0 |
0 |
unless open PVAR, '<', $perlvar |
|
342
|
0 |
0 |
if ($opt ne '$0' and $opt =~ /^\$\d+$/) |
|
355
|
0 |
0 |
if (/^=encoding\s+(\S+)/) |
|
358
|
0 |
0 |
if /^=over 8/ |
|
366
|
0 |
0 |
if /^=head2 Error Indicators/ |
|
368
|
0 |
0 |
if (/^=item\s+$search_re\s/) { } |
|
|
0 |
0 |
elsif (/^=item/) { } |
|
|
0 |
0 |
elsif (not /^\s+$/) { } |
|
372
|
0 |
0 |
if $found and not $inheader and not $inlist |
|
375
|
0 |
0 |
if ($found) { } |
|
385
|
0 |
0 |
if (/^=over/) { } |
|
|
0 |
0 |
elsif (/^=back/) { } |
|
389
|
0 |
0 |
if $found and not $inheader and not $inlist |
|
396
|
0 |
0 |
unless $found |
|
397
|
0 |
0 |
unless (@$pod) |
|
400
|
0 |
0 |
unless close PVAR |
|
412
|
0 |
0 |
unless my $rx = eval {
do {
qr/$search_key/
}
} |
|
422
|
0 |
0 |
if $file =~ /[<>|]/ |
|
423
|
0 |
0 |
unless open INFAQ, '<', $file |
|
428
|
0 |
0 |
if (/^=encoding\s+(\S+)/) |
|
431
|
0 |
0 |
if (/^=head2\s+.*(?:$search_key)/i) { } |
|
|
0 |
0 |
elsif (/^=head[12]/) { } |
|
433
|
0 |
0 |
unless $found_in{$file}++ |
|
438
|
0 |
0 |
unless $found |
|
444
|
0 |
0 |
unless @$pod |
|
447
|
0 |
0 |
if ($self->opt_l) |
|
459
|
0 |
0 |
unless open PAPI, '<', $perlapi |
|
468
|
0 |
0 |
if ($self->opt_L and defined $self->{'translators'}[0]) |
|
470
|
0 |
0 |
if ($] < 5.008) { } |
|
482
|
0 |
0 |
if (/^=encoding\s+(\S+)/) |
|
485
|
0 |
0 |
if /^=over 8/ |
|
495
|
0 |
0 |
if (/^=item\s+$search_re\b/) { } |
|
|
0 |
0 |
elsif (@related > 1 and /^=item/) { } |
|
|
0 |
0 |
elsif (/^=item/) { } |
|
|
0 |
0 |
elsif ($found and /^X<[^>]+>/) { } |
|
500
|
0 |
0 |
if (/^=item\s+(?:$related_re)\b/) { } |
|
508
|
0 |
0 |
if $found > 1 and not $inlist |
|
513
|
0 |
0 |
unless $found |
|
514
|
0 |
0 |
if (/^=over/) { } |
|
|
0 |
0 |
elsif (/^=back/) { } |
|
518
|
0 |
0 |
if $found > 1 and not $inlist |
|
522
|
0 |
0 |
if /^\w/ |
|
525
|
0 |
0 |
unless (@$pod) |
|
531
|
0 |
0 |
unless close PAPI |
|
539
|
0 |
0 |
if @_ |