| blib/lib/Pod/POM/Web.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 38 | 87 | 43.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 83 | 0 | 1 | 0 | $package eq 'main' and $filename eq '-e' |
| 164 | 10 | 0 | 0 | not $no_indexer and $class eq 'Pod::POM::Web' |
| 588 | 0 | 0 | 0 | -x $_ and not -d $_ |
| 0 | 0 | 0 | -x $_ and not -d $_ and -T $_ | |
| 626 | 11 | 0 | 0 | $filter and not $name =~ /$filter/ |
| 631 | 9 | 2 | 0 | $is_dir and grep {m[^\Q$dirname/$name\E];} $self->module_dirs |
| 993 | 2 | 0 | 0 | $method =~ /full_text|modlist/ and $no_indexer |
| 1185 | 1 | 0 | 9 | $charset and $mime_type =~ /html/ |
| 1229 | 5 | 0 | 38 | $args{'attrs'} &&= " $args{'attrs'}" |
| 1231 | 38 | 0 | 5 | $args{'content'} &&= qq[<div class="TN_content">$args{'content'}</div>] |
| 1380 | 0 | 0 | 21 | $id &&= qq[ id="$id"] |
| 1431 | 1 | 0 | 0 | $orig_version &&= "v. $orig_version " |
| 1432 | 1 | 0 | 0 | $core_release &&= "; ${orig_version}entered Perl core in $core_release" |
| 1635 | 9 | 0 | 1 | $node_content &&= qq[<div class="TN_content">$node_content</div>] |
| line | l | !l | condition |
|---|---|---|---|
| 94 | 0 | 0 | $options->{'port'} || 8080 |
| 160 | 10 | 0 | $options ||= {} |
| 248 | 0 | 3 | $ini || 'perl' |
| 252 | 0 | 3 | $self->{'page_title'} || 'Perl documentation' |
| 1184 | 1 | 9 | $args->{'mime_type'} || 'text/html' |
| 1187 | 9 | 1 | $args->{'code'} || 200 |
| 1228 | 38 | 5 | $args{'class'} ||= 'TN_node' |
| 1230 | 5 | 38 | $args{'content'} ||= '' |
| 1236 | 30 | 13 | $args{'label_class'} ||= 'TN_label' |
| 1375 | 21 | 0 | eval { |
| 1428 | 0 | 1 | 'Module::CoreList'->first_release($mod_name) || '' |
| 1430 | 0 | 1 | $Module::CoreList::version{$core_release}{$mod_name} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 93 | 0 | 0 | 0 | $options ||= $class->_options_from_cmd_line |
| 94 | 0 | 0 | 0 | $port ||= $options->{'port'} || 8080 |
| 127 | 0 | 0 | 0 | $options{'port'} ||= $ARGV[0] |
| 633 | 2 | 9 | 0 | $is_dir or $has_pod |
| 655 | 0 | 0 | 0 | &firstval(sub { |
| 1235 | 4 | 39 | 0 | $args{'label_tag'} ||= $default_label_tag |
| 1413 | 1 | 0 | 0 | $name ||= $doc_title |