| line |
true |
false |
branch |
|
66
|
0 |
4 |
if $url =~ / \A (?: data | mailto | urn ) : /imsx |
|
68
|
0 |
4 |
unless $url =~ m[ / \z ]msx |
|
74
|
0 |
0 |
unless m[ \A https://github\.com \b ]msx |
|
77
|
0 |
0 |
unless -d $git_dir |
|
79
|
0 |
0 |
unless open my $fh, "-|", ("git", "remote", "--verbose") |
|
83
|
0 |
1 |
if m[ \b https://github\.com \b ]msx |
|
118
|
255 |
21 |
unless exists $arg{$key} |
|
121
|
275 |
0 |
if (my $code = $self->can("_init_$name")) { } |
|
|
0 |
0 |
elsif (defined $arg{$name}) { } |
|
156
|
2 |
22 |
unless ($checked) |
|
165
|
0 |
2 |
if ({'DOS', 1, 'MSWin32', 1}->{$^O}) { } |
|
173
|
2 |
0 |
unless $rslt = IPC::Cmd::can_run("man") |
|
185
|
1903 |
46 |
unless / \A _get_module_index_ ( .+ ) /msx and "Test::Pod::LinkCheck::Lite"->can($_) |
|
212
|
0 |
25 |
$value ? : |
|
218
|
25 |
0 |
$value ? : |
|
224
|
24 |
1 |
$value ? : |
|
230
|
24 |
1 |
$value ? : |
|
277
|
0 |
25 |
unless eval {
do {
$handler{ref $value}($spec, $value);
1
}
} |
|
288
|
0 |
25 |
$value ? : |
|
295
|
23 |
2 |
'ARRAY' eq ref $value ? : |
|
298
|
0 |
48 |
unless my $code = $self->can("_get_module_index_$mi") |
|
309
|
2 |
23 |
if ('CODE' eq ref $value) { } |
|
|
1 |
22 |
elsif ($value) { } |
|
328
|
1 |
24 |
$value ? : |
|
334
|
24 |
1 |
$value ? : |
|
340
|
0 |
25 |
unless defined $name |
|
342
|
0 |
25 |
unless eval {
do {
$value->isa("HTTP::Tiny")
}
} |
|
347
|
0 |
25 |
if (ref $value) { } |
|
359
|
1 |
0 |
unless defined $self->{'agent'} |
|
367
|
0 |
1 |
unless @dir |
|
379
|
12 |
1 |
if ($self->_is_perl_file($_)) |
|
394
|
0 |
1 |
wantarray ? : |
|
420
|
0 |
1 |
unless defined $leader |
|
448
|
4 |
4 |
$value ? : |
|
455
|
1 |
0 |
unless $spec->{''} |
|
456
|
1 |
0 |
unless $spec->{'Regexp'} |
|
457
|
1 |
0 |
unless $spec->{'CODE'} |
|
459
|
0 |
1 |
wantarray ? : |
|
469
|
7 |
15 |
unless @_ > 1 |
|
471
|
0 |
15 |
if $spec->{''}{$url} |
|
474
|
1 |
0 |
if $url =~ /$re/ |
|
479
|
1 |
0 |
if &$code() |
|
493
|
2 |
0 |
if wantarray |
|
508
|
1 |
45 |
if ('SCALAR' eq ref $file) { } |
|
|
44 |
1 |
elsif (-f $file) { } |
|
509
|
0 |
1 |
${$file;} =~ / \n /msx ? : |
|
518
|
1 |
0 |
wantarray ? : |
|
525
|
7 |
38 |
unless (@{$self->{'_links'};}) |
|
527
|
3 |
4 |
wantarray ? : |
|
533
|
0 |
43 |
unless my $code = $self->can("_handle_$link->[1]{'type'}") |
|
540
|
30 |
8 |
unless $errors |
|
543
|
14 |
24 |
wantarray ? : |
|
573
|
0 |
13 |
if defined $self->{'agent'} |
|
582
|
37 |
0 |
unless @msg |
|
607
|
0 |
0 |
defined $file ? : |
|
617
|
16 |
39 |
if ("ARRAY" eq ref $msg[0]) |
|
620
|
16 |
0 |
defined $link->[1]{'raw'} ? : |
|
623
|
15 |
1 |
if defined $link->[1]{'line_number'} |
|
650
|
5 |
5 |
if defined $path |
|
657
|
0 |
5 |
if Module::Load::Conditional::check_install("module", $module) |
|
673
|
1 |
0 |
unless $self->man |
|
677
|
0 |
0 |
unless $link->[1]{'to'} |
|
679
|
0 |
0 |
unless my($page, $sect) = $link->[1]{'to'} =~ /
( [^(]+ ) (?: [(] ( [^)]+ ) [)] )? /msx |
|
685
|
0 |
0 |
if $page =~ / \s /msx and not $self->allow_man_spaces |
|
689
|
0 |
0 |
$sect ? : |
|
694
|
0 |
0 |
if $self->{'_cache'}{'man'}{join $", @pg} ||= IPC::Cmd::run('COMMAND', [('man', '-w'), @pg]) || 0 |
|
706
|
16 |
10 |
if ($link->[1]{'to'}) { } |
|
|
9 |
1 |
elsif (my $section = $link->[1]{'section'}) { } |
|
712
|
8 |
1 |
if $self->{'_section'}{$section} |
|
741
|
16 |
0 |
$link->[1]{'to'} ? : |
|
742
|
5 |
11 |
$link->[1]{'section'} ? : |
|
746
|
11 |
5 |
unless ($section) |
|
747
|
2 |
9 |
if $self->_is_perl_function($module) |
|
752
|
9 |
5 |
if (my $data = ($self->{'_cache'}{'installed'}{$module} ||= $self->_get_installed_doc_info($module))) |
|
763
|
0 |
9 |
if $data->{'undocumented'} |
|
772
|
5 |
4 |
unless $link->[1]{'section'} and $self->check_external_sections |
|
779
|
3 |
1 |
if $data->{'section'}{$section} |
|
787
|
1 |
4 |
if $self->require_installed |
|
803
|
4 |
0 |
if (@inxes) { } |
|
808
|
0 |
4 |
unless &$modinx($module) |
|
811
|
4 |
0 |
unless $link->[1]{'section'} |
|
845
|
3 |
0 |
if (_has_usable("File::HomeDir", "0.52")) |
|
852
|
3 |
0 |
if $ENV{'HOME'} |
|
856
|
0 |
0 |
if $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
|
858
|
0 |
3 |
if $ENV{'USERPROFILE'} |
|
860
|
0 |
3 |
if $ENV{'SYS$LOGIN'} |
|
866
|
0 |
5 |
unless defined $dir |
|
869
|
3 |
2 |
unless -e $path |
|
872
|
0 |
2 |
unless my $hash = Storable::retrieve($path) |
|
894
|
0 |
2 |
if exists $hash{$_[0]} |
|
908
|
1 |
15 |
unless $self->check_url |
|
913
|
0 |
15 |
unless my $url = "$link->[1]{'to'}" |
|
916
|
11 |
4 |
if ($url =~ / \A https : /imsx) |
|
918
|
0 |
11 |
unless ($ok) |
|
920
|
0 |
0 |
unless $self->{'_ssl_warning'} |
|
927
|
2 |
13 |
if $self->__ignore_url($url) |
|
931
|
13 |
0 |
if ($self->cache_url_response) { } |
|
938
|
11 |
2 |
if ($resp->{'success'}) { } |
|
942
|
4 |
2 |
unless "CODE" eq ref $code |
|
951
|
1 |
1 |
if $self->skip_server_errors and $resp->{'status'} =~ / \A 5 /msx |
|
967
|
1 |
2 |
unless (exists $checked{$module}) |
|
974
|
0 |
1 |
unless (eval {
do {
require $fn;
$checked{$module} = 1;
1
}
}) |
|
979
|
0 |
3 |
unless $checked{$module} |
|
982
|
3 |
0 |
if (defined $version) |
|
995
|
3 |
17 |
unless -e $path and -T _ |
|
998
|
16 |
1 |
if $path =~ / [.] (?: (?i: pl ) | pm | pod | t ) \z /msx |
|
1000
|
0 |
1 |
unless open my $fh, "<", $path |
|
1048
|
48 |
0 |
if defined $source |
|
1053
|
656 |
0 |
if (my $code = $self->can("__token_" . $token->type)) |
|
1058
|
0 |
48 |
if $err and $self->any_errata_seen |
|
1062
|
45 |
3 |
wantarray ? : |
|
1072
|
0 |
75 |
unless defined $text |
|
1083
|
154 |
65 |
if (defined(my $line = $token->attr("start_line"))) |
|
1087
|
43 |
176 |
if ('L' eq $tag) { } |
|
|
2 |
174 |
elsif ('X' eq $tag) { } |
|
|
28 |
146 |
elsif ($section_tag{$tag}) { } |
|
1090
|
39 |
47 |
unless my $sect = $token->attr($name) |
|
1106
|
2 |
216 |
if @{$attr->{'ignore_tag'};} |
|
1117
|
28 |
191 |
if ($section_tag{$tag}) { } |
|
|
2 |
378 |
elsif (@{$attr->{'ignore_tag'};} and $tag eq $attr->{'ignore_tag'}[-1]) { } |