| line |
true |
false |
branch |
|
64
|
0 |
4 |
if $url =~ / \A (?: data | mailto | urn ) : /imsx |
|
66
|
0 |
4 |
unless $url =~ m[ / \z ]msx |
|
72
|
0 |
1 |
unless m[ \A https://github\.com \b ]msx |
|
75
|
1 |
0 |
unless -d $git_dir |
|
77
|
0 |
0 |
unless open my $fh, "-|", ("git", "remote", "--verbose") |
|
81
|
0 |
0 |
if m[ \b https://github\.com \b ]msx |
|
116
|
302 |
22 |
unless exists $arg{$key} |
|
119
|
324 |
0 |
if (my $code = $self->can("_init_$name")) { } |
|
|
0 |
0 |
elsif (defined $arg{$name}) { } |
|
154
|
2 |
24 |
unless ($checked) |
|
163
|
0 |
2 |
if ({'DOS', 1, 'MSWin32', 1}->{$^O}) { } |
|
171
|
0 |
2 |
unless $rslt = IPC::Cmd::can_run("man") |
|
181
|
0 |
26 |
if -d "blib/script" |
|
189
|
2120 |
50 |
unless / \A _get_module_index_ ( .+ ) /msx and __PACKAGE__->can($_) |
|
216
|
26 |
1 |
ref $value ? : |
|
222
|
0 |
27 |
$value ? : |
|
228
|
27 |
0 |
$value ? : |
|
234
|
26 |
1 |
$value ? : |
|
240
|
26 |
1 |
$value ? : |
|
287
|
0 |
27 |
unless eval {
do {
$handler{ref $value}($spec, $value);
1
}
} |
|
298
|
27 |
0 |
$value ? : |
|
305
|
25 |
2 |
'ARRAY' eq ref $value ? : |
|
308
|
0 |
52 |
unless my $code = $self->can("_get_module_index_$mi") |
|
319
|
2 |
25 |
if ('CODE' eq ref $value) { } |
|
|
1 |
24 |
elsif ($value) { } |
|
338
|
1 |
26 |
$value ? : |
|
344
|
26 |
1 |
$value ? : |
|
350
|
0 |
27 |
unless defined $value |
|
352
|
0 |
27 |
unless eval {
do {
$value->isa("HTTP::Tiny")
}
} |
|
357
|
0 |
27 |
if (ref $value) { } |
|
369
|
1 |
0 |
unless defined $self->{'agent'} |
|
377
|
0 |
1 |
unless @dir |
|
389
|
12 |
1 |
if ($self->_is_perl_file($_)) |
|
404
|
0 |
1 |
wantarray ? : |
|
435
|
0 |
1 |
unless defined $leader |
|
463
|
5 |
3 |
$value ? : |
|
470
|
1 |
0 |
unless $spec->{''} |
|
471
|
1 |
0 |
unless $spec->{'Regexp'} |
|
472
|
1 |
0 |
unless $spec->{'CODE'} |
|
474
|
0 |
1 |
wantarray ? : |
|
484
|
7 |
15 |
unless @_ > 1 |
|
486
|
0 |
15 |
if $spec->{''}{$url} |
|
489
|
1 |
0 |
if $url =~ /$re/ |
|
494
|
1 |
0 |
if &$code() |
|
508
|
2 |
0 |
if wantarray |
|
523
|
1 |
48 |
if ('SCALAR' eq ref $file) { } |
|
|
47 |
1 |
elsif (-f $file) { } |
|
524
|
0 |
1 |
${$file;} =~ / \n /msx ? : |
|
533
|
1 |
0 |
wantarray ? : |
|
540
|
7 |
41 |
unless (@{$self->{'_links'};}) |
|
542
|
3 |
4 |
wantarray ? : |
|
548
|
0 |
48 |
unless my $code = $self->can("_handle_$link->[1]{'type'}") |
|
555
|
32 |
9 |
unless $errors |
|
558
|
15 |
26 |
wantarray ? : |
|
588
|
0 |
14 |
if defined $self->{'agent'} |
|
597
|
39 |
0 |
unless @msg |
|
622
|
0 |
0 |
defined $file ? : |
|
632
|
17 |
41 |
if ("ARRAY" eq ref $msg[0]) |
|
635
|
17 |
0 |
defined $link->[1]{'raw'} ? : |
|
638
|
16 |
1 |
if defined $link->[1]{'line_number'} |
|
658
|
1 |
0 |
if -e $path and -s _ and -T _ |
|
682
|
5 |
7 |
if defined $path |
|
689
|
0 |
7 |
if Module::Load::Conditional::check_install("module", $module) |
|
705
|
0 |
2 |
unless $self->man |
|
709
|
0 |
2 |
unless $link->[1]{'to'} |
|
711
|
0 |
2 |
unless my($page, $sect) = $link->[1]{'to'} =~ /
( [^(]+ ) (?: [(] ( [^)]+ ) [)] )? /msx |
|
717
|
0 |
2 |
if $page =~ / \s /msx and not $self->allow_man_spaces |
|
721
|
2 |
0 |
$sect ? : |
|
726
|
2 |
0 |
if $self->{'_cache'}{'man'}{join $", @pg} ||= IPC::Cmd::run('COMMAND', [('man', '-w'), @pg]) || 0 |
|
738
|
20 |
10 |
if ($link->[1]{'to'}) { } |
|
|
9 |
1 |
elsif (my $section = $link->[1]{'section'}) { } |
|
744
|
8 |
1 |
if $self->{'_section'}{$section} |
|
773
|
20 |
0 |
$link->[1]{'to'} ? : |
|
774
|
7 |
13 |
$link->[1]{'section'} ? : |
|
778
|
13 |
7 |
unless ($section) |
|
779
|
2 |
11 |
if $self->_is_perl_function($module) |
|
784
|
11 |
7 |
if (my $data = ($self->{'_cache'}{'installed'}{$module} ||= $self->_get_installed_doc_info($module))) |
|
795
|
0 |
11 |
if $data->{'undocumented'} |
|
804
|
6 |
5 |
unless $link->[1]{'section'} and $self->check_external_sections |
|
811
|
4 |
1 |
if $data->{'section'}{$section} |
|
819
|
1 |
6 |
if $self->require_installed |
|
835
|
5 |
0 |
if (@inxes) { } |
|
840
|
2 |
4 |
unless &$modinx($module) |
|
843
|
4 |
0 |
unless $link->[1]{'section'} |
|
877
|
4 |
0 |
if (_has_usable("File::HomeDir", "0.52")) |
|
884
|
4 |
0 |
if $ENV{'HOME'} |
|
888
|
0 |
0 |
if $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
|
890
|
0 |
4 |
if $ENV{'USERPROFILE'} |
|
892
|
0 |
4 |
if $ENV{'SYS$LOGIN'} |
|
898
|
0 |
8 |
unless defined $dir |
|
901
|
6 |
2 |
unless -e $path |
|
904
|
0 |
2 |
unless my $hash = Storable::retrieve($path) |
|
926
|
1 |
4 |
if exists $hash{$_[0]} |
|
940
|
1 |
15 |
unless $self->check_url |
|
945
|
0 |
15 |
unless my $url = "$link->[1]{'to'}" |
|
948
|
11 |
4 |
if ($url =~ / \A https : /imsx) |
|
950
|
0 |
11 |
unless ($ok) |
|
952
|
0 |
0 |
unless $self->{'_ssl_warning'} |
|
959
|
2 |
13 |
if $self->__ignore_url($url) |
|
963
|
13 |
0 |
if ($self->cache_url_response) { } |
|
970
|
11 |
2 |
if ($resp->{'success'}) { } |
|
974
|
4 |
2 |
unless "CODE" eq ref $code |
|
983
|
1 |
1 |
if $self->skip_server_errors and $resp->{'status'} =~ / \A 5 /msx |
|
999
|
1 |
3 |
unless (exists $checked{$module}) |
|
1006
|
0 |
1 |
unless (eval {
do {
require $fn;
$checked{$module} = 1;
1
}
}) |
|
1011
|
0 |
4 |
unless $checked{$module} |
|
1014
|
4 |
0 |
if (defined $version) |
|
1027
|
3 |
17 |
unless -e $path and -T _ |
|
1030
|
16 |
1 |
if $path =~ / [.] (?: (?i: pl ) | pm | pod | t ) \z /msx |
|
1032
|
0 |
1 |
unless open my $fh, "<", $path |
|
1081
|
52 |
0 |
if defined $source |
|
1090
|
759 |
0 |
if (my $code = $self->can('__token_' . $token->type)) |
|
1095
|
0 |
52 |
if $err and $self->any_errata_seen |
|
1099
|
48 |
4 |
wantarray ? : |
|
1109
|
0 |
90 |
unless defined $text |
|
1120
|
180 |
73 |
if (defined(my $line = $token->attr("start_line"))) |
|
1124
|
48 |
205 |
if ('L' eq $tag) { } |
|
|
2 |
203 |
elsif ('X' eq $tag) { } |
|
|
36 |
167 |
elsif ($section_tag{$tag}) { } |
|
1127
|
42 |
54 |
unless my $sect = $token->attr($name) |
|
1145
|
2 |
251 |
if @{$attr->{'ignore_tag'};} |
|
1156
|
36 |
217 |
if ($section_tag{$tag}) { } |
|
|
2 |
430 |
elsif (@{$attr->{'ignore_tag'};} and $tag eq $attr->{'ignore_tag'}[-1]) { } |