| blib/lib/Pod/POM/Web.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 37 | 87 | 42.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 86 | 0 | 1 | 0 | $package eq 'main' and $filename eq '-e' |
| 141 | 10 | 0 | 0 | not $no_indexer and $class eq 'Pod::POM::Web' |
| 529 | 0 | 0 | 0 | -x $_ and not -d $_ |
| 0 | 0 | 0 | -x $_ and not -d $_ and -T $_ | |
| 567 | 11 | 0 | 0 | $filter and not $name =~ /$filter/ |
| 572 | 9 | 2 | 0 | $is_dir and grep {m[^\Q$dirname/$name\E];} @search_dirs |
| 934 | 2 | 0 | 0 | $method =~ /fulltext|modlist/ and $no_indexer |
| 1127 | 0 | 1 | 9 | $charset and $mime_type =~ /html/ |
| 1171 | 5 | 0 | 38 | $args{'attrs'} &&= " $args{'attrs'}" |
| 1173 | 38 | 0 | 5 | $args{'content'} &&= qq[<div class="TN_content">$args{'content'}</div>] |
| 1328 | 0 | 0 | 21 | $id &&= qq[ id="$id"] |
| 1380 | 1 | 0 | 0 | $orig_version &&= "v. $orig_version " |
| 1381 | 1 | 0 | 0 | $core_release &&= "; ${orig_version}entered Perl core in $core_release" |
| 1586 | 7 | 0 | 0 | $node_content &&= qq[<div class="TN_content">$node_content</div>] |
| line | l | !l | condition |
|---|---|---|---|
| 97 | 0 | 0 | $options->{'port'} || 8080 |
| 137 | 0 | 10 | $options ||= {} |
| 217 | 0 | 3 | $ini || 'perl' |
| 221 | 0 | 3 | $self->{'page_title'} || 'Perl documentation' |
| 1126 | 1 | 9 | $args->{'mime_type'} || 'text/html' |
| 1129 | 9 | 1 | $args->{'code'} || 200 |
| 1170 | 38 | 5 | $args{'class'} ||= 'TN_node' |
| 1172 | 5 | 38 | $args{'content'} ||= '' |
| 1178 | 30 | 13 | $args{'label_class'} ||= 'TN_label' |
| 1317 | 21 | 0 | eval { |
| 1377 | 0 | 1 | 'Module::CoreList'->first_release($mod_name) || '' |
| 1379 | 0 | 1 | $Module::CoreList::version{$core_release}{$mod_name} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 96 | 0 | 0 | 0 | $options ||= $class->_options_from_cmd_line |
| 97 | 0 | 0 | 0 | $port ||= $options->{'port'} || 8080 |
| 121 | 0 | 0 | 0 | $options{'port'} ||= $ARGV[0] |
| 574 | 2 | 9 | 0 | $is_dir or $has_pod |
| 596 | 0 | 0 | 0 | &firstval(sub { |
| 1177 | 4 | 39 | 0 | $args{'label_tag'} ||= $default_label_tag |
| 1362 | 1 | 0 | 0 | $name ||= $doc_title |