| line |
true |
false |
branch |
|
41
|
1 |
4 |
unless $params |
|
44
|
1 |
4 |
if (my(@req) = grep({not $self->{$_};} 'doc_root', 'base_uri', 'module_roots')) |
|
45
|
1 |
0 |
@req > 1 ? : |
|
47
|
1 |
0 |
@req > 1 ? : |
|
|
1 |
0 |
@req ? : |
|
54
|
1 |
3 |
ref $self->{'module_roots'} eq 'ARRAY' ? : |
|
56
|
1 |
3 |
unless -e $path |
|
59
|
2 |
1 |
unless ref $self->{'base_uri'} |
|
71
|
0 |
2 |
unless open my $idx_fh, '>', $idx_file |
|
76
|
0 |
2 |
unless open my $toc_fh, '>', $toc_file |
|
97
|
0 |
2 |
unless close $idx_fh |
|
98
|
0 |
2 |
unless close $toc_fh |
|
110
|
0 |
14 |
if ($name =~ /[.]p(?:m|od)$/) { } |
|
|
0 |
14 |
elsif ($name =~ /[.](?:plx?|bat)$/) { } |
|
119
|
14 |
0 |
if (open my $fh, '<', $path) { } |
|
122
|
0 |
14 |
if ($shebang and $shebang =~ /^#!.*\bperl/) { } |
|
149
|
0 |
2 |
if $self->verbose > 1 |
|
155
|
0 |
2 |
if (my $uri = $self->{'favicon_uri'}) |
|
188
|
0 |
2 |
if $self->verbose > 1 |
|
227
|
0 |
22 |
if $self->verbose > 1 |
|
228
|
8 |
14 |
if (ref $data) { } |
|
232
|
6 |
2 |
if ($$tree{"$key.pm"}) |
|
234
|
6 |
0 |
if (my $desc = $self->get_desc($class, $path)) |
|
242
|
0 |
8 |
if $self->verbose > 2 |
|
256
|
8 |
6 |
unless $self->{'seen'}{$class} |
|
264
|
2 |
0 |
unless %{$files;} |
|
282
|
0 |
2 |
if $self->verbose > 1 |
|
294
|
0 |
2 |
if $self->verbose > 1 |
|
305
|
0 |
2 |
if $self->verbose > 1 |
|
329
|
2 |
2 |
unless -e $dest and not $$self{"replace_$ext"} |
|
336
|
0 |
16 |
unless open my $fh, '<', $file |
|
341
|
36 |
504 |
unless /^=(?!cut)/ .. /^=cut/ |
|
342
|
50 |
454 |
unless $desc |
|
343
|
500 |
4 |
unless $encoding |
|
345
|
1 |
15 |
if $desc and $encoding |
|
347
|
0 |
16 |
unless close $fh |
|
349
|
0 |
16 |
if $self->{'verbose'} and not $desc |
|
365
|
12 |
0 |
unless $self->{'name'} |
|
370
|
1 |
1 |
$self->versioned_title ? : |
|
|
1 |
1 |
$self->label ? : |
|
378
|
2 |
2 |
$self->versioned_title ? : |
|
383
|
4 |
1 |
if $self->{'version'} |
|
386
|
0 |
1 |
unless my $file = 'Pod::Site::Search'->instance->name2path->{$mod} |
|
388
|
0 |
1 |
unless my $info = 'Module::Metadata'->new_from_file($file) |
|
436
|
0 |
13 |
unless Getopt::Long::GetOptions('name|n=s', \$opts{'name'}, 'doc-root|d=s', \$opts{'doc_root'}, 'base-uri|u=s@', \$opts{'base_uri'}, 'favicon-uri=s', \$opts{'favicon_uri'}, 'sample-module|s=s', \$opts{'sample_module'}, 'main-module|m=s', \$opts{'main_module'}, 'versioned-title|t!', \$opts{'versioned_title'}, 'label|l=s', \$opts{'label'}, 'index-file|i=s', \$opts{'index_file'}, 'css-path|c=s', \$opts{'css_path'}, 'js-path|j=s', \$opts{'js_path'}, 'replace-css', \$opts{'replace_css'}, 'replace-js', \$opts{'replace_js'}, 'verbose|V+', \$opts{'verbose'}, 'help|h', \$opts{'help'}, 'man|M', \$opts{'man'}, 'version|v', \$opts{'version'}) |
|
442
|
2 |
2 |
$opts{'man'} ? : |
|
|
4 |
9 |
if $opts{'help'} or $opts{'man'} |
|
445
|
0 |
13 |
if ($opts{'version'}) |
|
453
|
3 |
10 |
if (my(@missing) = map({(my $opt = $_) =~ s/_/-/g;
"--$opt";} grep({not $opts{$_};} 'doc_root', 'base_uri'))) |
|
457
|
1 |
2 |
@missing > 1 ? : |
|
459
|
0 |
1 |
@missing > 1 ? : |
|
|
1 |
2 |
@missing ? : |
|
465
|
1 |
12 |
unless @ARGV |
|
471
|
1 |
11 |
unless m[/$] |
|
478
|
10 |
4 |
if ($mod =~ /::/) { } |
|
499
|
14 |
0 |
if $desc |
|
502
|
0 |
14 |
if $self->{'verbose'} > 2 |
|
504
|
8 |
6 |
unless $no_link |
|
508
|
0 |
14 |
if $self->{'verbose'} > 2 |
|
516
|
0 |
2 |
unless my $search = 'Pod::Site::Search'->instance |
|
521
|
2 |
0 |
unless $bins->{$mod} |
|
568
|
0 |
8 |
unless my $search = 'Pod::Site::Search'->instance |
|
571
|
4 |
4 |
$to && $search->name2path->{$to} ? : |
|
573
|
2 |
2 |
unless $url or $id and not $to |
|
574
|
4 |
2 |
$id ? : |
|
575
|
4 |
2 |
if $id |