| line |
true |
false |
branch |
|
86
|
0 |
1 |
if $package eq 'main' and $filename eq '-e' |
|
99
|
0 |
0 |
unless my $daemon = 'HTTP::Daemon'->new('LocalPort', $port, 'ReuseAddr', 1) |
|
121
|
0 |
0 |
if @ARGV |
|
129
|
0 |
10 |
unless eval {
|
|
141
|
0 |
10 |
if (not $no_indexer and $class eq 'Pod::POM::Web') |
|
146
|
0 |
10 |
if (/^Apache/) |
|
159
|
10 |
0 |
if (/^HTTP/) |
|
188
|
0 |
10 |
if $path_info =~ m[(\.\.|//|\\|:)] |
|
190
|
1 |
9 |
unless $path_info =~ s[^/][] |
|
192
|
1 |
8 |
if /^$/ |
|
193
|
1 |
7 |
if /^index$/ |
|
194
|
1 |
6 |
if /^toc$/ |
|
195
|
1 |
5 |
if m[^toc/(.*)$] |
|
196
|
0 |
5 |
if m[^script/(.*)$] |
|
197
|
2 |
3 |
if /^search$/ |
|
198
|
1 |
2 |
if m[^source/(.*)$] |
|
201
|
0 |
2 |
if /^_dirs$/ |
|
204
|
1 |
1 |
if /\.(\w+)$/ |
|
218
|
0 |
3 |
$ini ? : |
|
248
|
1 |
0 |
unless $params->{'print'} |
|
250
|
0 |
1 |
unless my(@files) = $self->find_source($path) |
|
259
|
1 |
0 |
$params->{'coloring'} ? : |
|
266
|
0 |
1 |
$params->{'print'} ? : |
|
274
|
0 |
1 |
$params->{'print'} ? : |
|
280
|
0 |
1 |
$params->{'print'} ? : |
|
311
|
0 |
1 |
unless my $fullpath = &firstval(sub {
|
|
331
|
0 |
1 |
unless my(@sources) = $self->find_source($path) |
|
333
|
0 |
1 |
$path =~ /\bperltoc\b/ ? : |
|
338
|
0 |
1 |
@sources > 1 ? : |
|
347
|
0 |
1 |
if ($path =~ /\bperlfunc$/) |
|
353
|
0 |
1 |
unless my $pom = $parser->parse_text($content) |
|
363
|
0 |
1 |
if ($path =~ /\bperlfunc$/) |
|
368
|
0 |
1 |
if ($path =~ /\bperl$/) |
|
398
|
0 |
0 |
if -f $fullpath |
|
402
|
0 |
0 |
unless $fullpath |
|
412
|
0 |
0 |
unless my $pom = $parser->parse_text($content) |
|
426
|
0 |
16 |
if ($path =~ s[^scripts/][]) |
|
430
|
0 |
0 |
unless -f "$dir/$path$ext" |
|
443
|
16 |
140 |
if @found |
|
458
|
0 |
11 |
unless my $pom = $parser->parse_text($content) |
|
472
|
0 |
1 |
if /^perldocs$/ |
|
473
|
0 |
1 |
if /^pragmas$/ |
|
474
|
0 |
1 |
if /^scripts$/ |
|
479
|
0 |
1 |
if ($prefix eq 'Pod') |
|
512
|
0 |
0 |
unless /^perl/ |
|
525
|
0 |
0 |
unless opendir my $dh, $dir |
|
529
|
0 |
0 |
unless -x $_ and not -d $_ and -T $_ |
|
555
|
0 |
1 |
if ($prefix =~ /^([A-Z])\*/) |
|
563
|
10 |
0 |
$prefix ? : |
|
564
|
8 |
2 |
unless opendir my $dh, $dirname |
|
566
|
4 |
11 |
if $name =~ /^\./ |
|
567
|
0 |
11 |
if $filter and not $name =~ /$filter/ |
|
572
|
0 |
11 |
if $is_dir and grep {m[^\Q$dirname/$name\E];} @search_dirs |
|
574
|
11 |
0 |
if ($is_dir or $has_pod) |
|
575
|
11 |
0 |
$prefix ? : |
|
576
|
2 |
9 |
if $is_dir |
|
577
|
9 |
2 |
if $has_pod |
|
590
|
0 |
0 |
unless my($perlpod) = $self->find_source('perl', ':crlf') |
|
593
|
0 |
0 |
unless my $perlpom = $parser->parse_text($source) |
|
611
|
0 |
0 |
unless my $entry = delete $perldocs->{$ref} |
|
624
|
0 |
0 |
if (keys %$perldocs) |
|
644
|
2 |
7 |
if ($entry->{'dir'}) |
|
648
|
9 |
0 |
if ($entry->{'pod'}) |
|
669
|
0 |
1 |
$ini ? : |
|
683
|
1 |
0 |
$no_indexer ? : |
|
932
|
0 |
2 |
unless my $method = {'perlfunc', 'perlfunc', 'perlvar', 'perlvar', 'perlfaq', 'perlfaq', 'modules', 'serve_pod', 'fulltext', 'fulltext', 'modlist', 'modlist'}->{$source} |
|
934
|
0 |
2 |
if ($method =~ /fulltext|modlist/ and $no_indexer) |
|
950
|
1 |
1 |
unless (@_perlfunc_items) |
|
951
|
0 |
1 |
unless my($funcpod) = $self->find_source('perlfunc') |
|
965
|
0 |
1 |
unless my(@items) = grep({$_->title =~ /^$func\b/;} $self->perlfunc_items) |
|
994
|
1 |
0 |
unless (@_perlvar_items) |
|
997
|
0 |
1 |
unless my($varpod) = $self->find_source('perlvar') |
|
1006
|
85 |
76 |
if ($item->content . '') |
|
1019
|
0 |
0 |
unless my(@items) = grep({&any(sub {
|
|
1052
|
0 |
9 |
unless my($faqpod) = $self->find_source($faq) |
|
1055
|
5 |
4 |
unless my(@questions) = map({grep {$_->title =~ /$regex/i;} $_->head2;} $faqpom->head1) |
|
1123
|
10 |
0 |
ref $encoding ? : |
|
1127
|
9 |
1 |
if $charset and $mime_type =~ /html/ |
|
1134
|
0 |
10 |
if (/^Apache/) |
|
1138
|
0 |
0 |
if $args->{'mtime'} |
|
1143
|
10 |
0 |
if (/^HTTP::Response/) |
|
1147
|
3 |
7 |
if $args->{'mtime'} |
|
1154
|
0 |
0 |
if $args->{'mtime'} |
|
1175
|
9 |
34 |
$args{'href'} ? : |
|
1179
|
0 |
43 |
if ($args{'abstract'}) |
|
1208
|
0 |
14 |
unless open my $fh, $file |
|
1209
|
14 |
0 |
if $io_layer |
|
1220
|
0 |
1 |
unless my $mm = 'Module::Metadata'->new_from_handle($fh, $mod_name) |
|
1232
|
161 |
86 |
if /^item/ |
|
1233
|
20 |
66 |
if /^(pod|head|over)/ |
|
1279
|
10 |
25 |
if $link =~ s/^([^|]+)\|// |
|
1289
|
34 |
1 |
unless $is_external_resource |
|
1292
|
10 |
25 |
if ($link_text) { } |
|
|
24 |
1 |
elsif (not $label =~ m[^\w+://]s) { } |
|
1297
|
5 |
0 |
$1 ? : |
|
1301
|
1 |
34 |
$is_external_resource ? : |
|
1318
|
0 |
21 |
if $title =~ /^\s*\*\s*$/ |
|
1323
|
0 |
21 |
if ($title =~ /^AnnoCPAN/) { } |
|
1332
|
21 |
0 |
if $title |
|
1352
|
0 |
1 |
unless my $content = $pom->content->present($self) |
|
1358
|
1 |
0 |
$name_h1 ? : |
|
1371
|
1 |
0 |
if (my $mod_name = $self->{'mod_name'}) |
|
1374
|
1 |
0 |
$self->{'version'} ? : |
|
1391
|
0 |
1 |
if ($has_cpan) |
|
1393
|
0 |
0 |
if ($mod) |
|
1396
|
0 |
0 |
if $cpan_version ne $self->{'version'} |
|
1522
|
3 |
54 |
if ($coloring) { } |
|
1534
|
1 |
56 |
if ($self->{'line_numbering'}) |
|
1548
|
3 |
0 |
if ($html) { } |
|
1585
|
0 |
7 |
$node_content ? : |