| blib/lib/Test/Pod/LinkCheck/Lite.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 30 | 57 | 52.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 185 | 1904 | 0 | 46 | / \A _get_module_index_ ( .+ ) /msx and "Test::Pod::LinkCheck::Lite"->can($_) |
| 685 | 0 | 0 | 0 | $page =~ / \s /msx and not $self->allow_man_spaces |
| 772 | 4 | 1 | 4 | $link->[1]{'section'} and $self->check_external_sections |
| 856 | 3 | 0 | 0 | $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
| 951 | 1 | 0 | 1 | $self->skip_server_errors and $resp->{'status'} =~ / \A 5 /msx |
| 995 | 1 | 2 | 17 | -e $path and -T _ |
| 1058 | 0 | 48 | 0 | $err and $self->any_errata_seen |
| 1117 | 189 | 0 | 2 | @{$attr->{'ignore_tag'};} and $tag eq $attr->{'ignore_tag'}[-1] |
| line | l | !l | condition |
|---|---|---|---|
| 76 | 0 | 0 | $ENV{'GIT_DIR'} || '.git' |
| 694 | 0 | 0 | IPC::Cmd::run('COMMAND', [('man', '-w'), @pg]) || 0 |
| 1002 | 1 | 0 | readline $fh || '' |
| 1013 | 10 | 1 | $bareword ||= {map({$_, 1;} @B::Keywords::Functions, @B::Keywords::Barewords)} |
| 1026 | 237 | 0 | caller $nest or "" |
| 1067 | 656 | 48 | $self->{'My_Parser'} ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 100 | 0 | 25 | 0 | ref $class || $class |
| 570 | 6 | 13 | 0 | $self->{'_user_agent'} ||= do { my @arg; push @arg, "agent", $self->{'agent'} if defined $self->{'agent'}; $self->{'user_agent'}->new(@arg) } |
| 694 | 0 | 0 | 0 | $self->{'_cache'}{'man'}{join $", @pg} ||= IPC::Cmd::run('COMMAND', [('man', '-w'), @pg]) || 0 |
| 752 | 4 | 5 | 5 | $self->{'_cache'}{'installed'}{$module} ||= $self->_get_installed_doc_info($module) |
| 777 | 1 | 3 | 0 | $data->{'section'} ||= "My_Parser"->new->run($data->{'file'}, \&Test::Pod::LinkCheck::Lite::_any_errata_seen, $self, "File $data->{'file'}") |
| 793 | 0 | 4 | 0 | $self->{'_cache'}{'uninstalled'} ||= $self->_get_module_index |
| 932 | 0 | 13 | 0 | $self->{'_cache_url_response'}{$url} ||= $user_agent->head($url) |