| blib/lib/Test/Pod/LinkCheck/Lite.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 37 | 63 | 58.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 189 | 2120 | 0 | 50 | / \A _get_module_index_ ( .+ ) /msx and __PACKAGE__->can($_) |
| 658 | 0 | 0 | 1 | -e $path and -s _ |
| 0 | 0 | 1 | -e $path and -s _ and -T _ | |
| 717 | 2 | 0 | 0 | $page =~ / \s /msx and not $self->allow_man_spaces |
| 804 | 5 | 1 | 5 | $link->[1]{'section'} and $self->check_external_sections |
| 888 | 4 | 0 | 0 | $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
| 983 | 1 | 0 | 1 | $self->skip_server_errors and $resp->{'status'} =~ / \A 5 /msx |
| 1027 | 1 | 2 | 17 | -e $path and -T _ |
| 1095 | 0 | 52 | 0 | $err and $self->any_errata_seen |
| 1156 | 215 | 0 | 2 | @{$attr->{'ignore_tag'};} and $tag eq $attr->{'ignore_tag'}[-1] |
| line | l | !l | condition |
|---|---|---|---|
| 74 | 1 | 0 | $ENV{'GIT_DIR'} || '.git' |
| 726 | 2 | 0 | IPC::Cmd::run('COMMAND', [('man', '-w'), @pg]) || 0 |
| 1034 | 1 | 0 | readline $fh || '' |
| 1045 | 12 | 1 | $bareword ||= {map({$_, 1;} @B::Keywords::Functions, @B::Keywords::Barewords)} |
| 1058 | 246 | 0 | caller $nest or "" |
| 1104 | 759 | 52 | $self->{'My_Parser'} ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 98 | 0 | 27 | 0 | ref $class || $class |
| 585 | 6 | 14 | 0 | $self->{'_user_agent'} ||= do { my @arg; push @arg, "agent", $self->{'agent'} if defined $self->{'agent'}; $self->{'user_agent'}->new(@arg) } |
| 726 | 0 | 2 | 0 | $self->{'_cache'}{'man'}{join $", @pg} ||= IPC::Cmd::run('COMMAND', [('man', '-w'), @pg]) || 0 |
| 784 | 5 | 6 | 7 | $self->{'_cache'}{'installed'}{$module} ||= $self->_get_installed_doc_info($module) |
| 809 | 1 | 4 | 0 | $data->{'section'} ||= "My_Parser"->new->run($data->{'file'}, \&Test::Pod::LinkCheck::Lite::_any_errata_seen, $self, "File $data->{'file'}") |
| 825 | 1 | 5 | 0 | $self->{'_cache'}{'uninstalled'} ||= $self->_get_module_index |
| 964 | 0 | 13 | 0 | $self->{'_cache_url_response'}{$url} ||= $user_agent->head($url) |