| line |
true |
false |
branch |
|
83
|
0 |
1 |
if $package eq 'main' and $filename eq '-e' |
|
96
|
0 |
0 |
unless my $daemon = 'HTTP::Daemon'->new('LocalPort', $port, 'ReuseAddr', 1) |
|
127
|
0 |
1 |
if @ARGV |
|
137
|
0 |
10 |
unless (eval {
|
|
139
|
0 |
0 |
if ($error =~ /No file for '(.*)'/) { } |
|
164
|
0 |
10 |
if (not $no_indexer and $class eq 'Pod::POM::Web') |
|
169
|
0 |
10 |
if (/^Apache/) |
|
182
|
10 |
0 |
if (/^HTTP/) |
|
216
|
0 |
10 |
if $path_info =~ m[(\.\.|//|\\|:)] |
|
218
|
1 |
9 |
unless $path_info =~ s[^/][] |
|
220
|
1 |
8 |
if /^$/ |
|
221
|
1 |
7 |
if /^index$/ |
|
222
|
1 |
6 |
if /^toc$/ |
|
223
|
1 |
5 |
if m[^toc/(.*)$] |
|
224
|
0 |
5 |
if m[^script/(.*)$] |
|
225
|
2 |
3 |
if /^search$/ |
|
226
|
1 |
2 |
if m[^source/(.*)$] |
|
229
|
0 |
2 |
if /^_dirs$/ |
|
235
|
1 |
1 |
if /\.(\w+)$/ |
|
249
|
0 |
3 |
$ini ? : |
|
279
|
1 |
0 |
unless $params->{'print'} |
|
281
|
0 |
1 |
unless my(@files) = $self->find_source($path) |
|
292
|
1 |
0 |
$params->{'coloring'} ? : |
|
299
|
0 |
1 |
$params->{'print'} ? : |
|
307
|
0 |
1 |
$params->{'print'} ? : |
|
313
|
0 |
1 |
$params->{'print'} ? : |
|
347
|
0 |
1 |
unless my $fullpath = &firstval(sub {
|
|
367
|
0 |
1 |
unless my(@sources) = $self->find_source($path) |
|
369
|
0 |
1 |
$path =~ /\bperltoc\b/ ? : |
|
374
|
0 |
1 |
@sources > 1 ? : |
|
383
|
0 |
1 |
if ($path =~ /\bperlfunc$/) |
|
389
|
0 |
1 |
unless my $pom = $parser->parse_text($content) |
|
399
|
0 |
1 |
if ($path =~ /\bperlfunc$/) |
|
404
|
0 |
1 |
if ($path =~ /\bperl$/) |
|
434
|
0 |
0 |
if -f $fullpath |
|
438
|
0 |
0 |
unless $fullpath |
|
448
|
0 |
0 |
unless my $pom = $parser->parse_text($content) |
|
462
|
0 |
16 |
if ($path =~ s[^scripts/][]) |
|
466
|
0 |
0 |
unless -f "$dir/$path$ext" |
|
479
|
16 |
108 |
if @found |
|
494
|
0 |
11 |
unless my $pom = $parser->parse_text($content) |
|
531
|
0 |
1 |
if /^perldocs$/ |
|
532
|
0 |
1 |
if /^pragmas$/ |
|
533
|
0 |
1 |
if /^scripts$/ |
|
538
|
0 |
1 |
if ($prefix eq 'Pod') |
|
571
|
0 |
0 |
unless /^perl/ |
|
584
|
0 |
0 |
unless opendir my $dh, $dir |
|
588
|
0 |
0 |
unless -x $_ and not -d $_ and -T $_ |
|
614
|
0 |
1 |
if ($prefix =~ /^([A-Z])\*/) |
|
622
|
8 |
0 |
$prefix ? : |
|
623
|
6 |
2 |
unless opendir my $dh, $dirname |
|
625
|
4 |
11 |
if $name =~ /^\./ |
|
626
|
0 |
11 |
if $filter and not $name =~ /$filter/ |
|
631
|
0 |
11 |
if $is_dir and grep {m[^\Q$dirname/$name\E];} $self->module_dirs |
|
633
|
11 |
0 |
if ($is_dir or $has_pod) |
|
634
|
11 |
0 |
$prefix ? : |
|
635
|
2 |
9 |
if $is_dir |
|
636
|
9 |
2 |
if $has_pod |
|
649
|
0 |
0 |
unless my($perlpod) = $self->find_source('perl', ':crlf') |
|
652
|
0 |
0 |
unless my $perlpom = $parser->parse_text($source) |
|
670
|
0 |
0 |
unless my $entry = delete $perldocs->{$ref} |
|
683
|
0 |
0 |
if (keys %$perldocs) |
|
703
|
2 |
7 |
if ($entry->{'dir'}) |
|
707
|
9 |
0 |
if ($entry->{'pod'}) |
|
728
|
0 |
1 |
$ini ? : |
|
742
|
1 |
0 |
$no_indexer ? : |
|
991
|
0 |
2 |
unless my $method = {'perlfunc', 'perlfunc', 'perlvar', 'perlvar', 'perlfaq', 'perlfaq', 'modules', 'serve_pod', 'full_text', 'full_text', 'modlist', 'modlist'}->{$source} |
|
993
|
0 |
2 |
if ($method =~ /full_text|modlist/ and $no_indexer) |
|
1009
|
1 |
1 |
unless (@_perlfunc_items) |
|
1010
|
0 |
1 |
unless my($funcpod) = $self->find_source('perlfunc') |
|
1024
|
0 |
1 |
unless my(@items) = grep({$_->title =~ /^$func\b/;} $self->perlfunc_items) |
|
1053
|
1 |
0 |
unless (@_perlvar_items) |
|
1056
|
0 |
1 |
unless my($varpod) = $self->find_source('perlvar') |
|
1065
|
85 |
76 |
if ($item->content . '') |
|
1078
|
0 |
0 |
unless my(@items) = grep({&any(sub {
|
|
1111
|
0 |
9 |
unless my($faqpod) = $self->find_source($faq) |
|
1114
|
5 |
4 |
unless my(@questions) = map({grep {$_->title =~ /$regex/i;} $_->head2;} $faqpom->head1) |
|
1185
|
9 |
1 |
if $charset and $mime_type =~ /html/ |
|
1192
|
0 |
10 |
if (/^Apache/) |
|
1196
|
0 |
0 |
if $args->{'mtime'} |
|
1201
|
10 |
0 |
if (/^HTTP::Response/) |
|
1205
|
3 |
7 |
if $args->{'mtime'} |
|
1212
|
0 |
0 |
if $args->{'mtime'} |
|
1233
|
9 |
34 |
$args{'href'} ? : |
|
1237
|
0 |
43 |
if ($args{'abstract'}) |
|
1266
|
0 |
14 |
unless open my $fh, '<', $file |
|
1267
|
14 |
0 |
if $io_layer |
|
1278
|
0 |
1 |
unless my $mm = 'Module::Metadata'->new_from_handle($fh, $mod_name) |
|
1290
|
161 |
86 |
if /^item/ |
|
1291
|
20 |
66 |
if /^(pod|head|over)/ |
|
1337
|
10 |
28 |
if $link =~ s/^([^|]+)\|// |
|
1347
|
36 |
2 |
unless $is_external_resource |
|
1350
|
10 |
28 |
if ($link_text) { } |
|
|
26 |
2 |
elsif (not $label =~ m[^\w+://]s) { } |
|
1355
|
5 |
0 |
$1 ? : |
|
1359
|
2 |
36 |
$is_external_resource ? : |
|
1376
|
0 |
21 |
if $title =~ /^\s*\*\s*$/ |
|
1383
|
21 |
0 |
if $title |
|
1403
|
0 |
1 |
unless my $content = $pom->content->present($self) |
|
1409
|
1 |
0 |
$name_h1 ? : |
|
1422
|
1 |
0 |
if (my $mod_name = $self->{'mod_name'}) |
|
1425
|
1 |
0 |
$self->{'version'} ? : |
|
1440
|
0 |
1 |
if ($has_cpan) |
|
1442
|
0 |
0 |
if ($mod) |
|
1445
|
0 |
0 |
if $cpan_version ne $self->{'version'} |
|
1571
|
5 |
54 |
if ($coloring) { } |
|
1583
|
1 |
58 |
if ($self->{'line_numbering'}) |
|
1597
|
5 |
0 |
if ($html) { } |
|
1634
|
1 |
9 |
$node_content ? : |