| line |
true |
false |
branch |
|
24
|
0 |
3 |
unless $pkg =~ /\A\w+(::\w+)*\z/
|
|
25
|
3 |
0 |
if ($pkg =~ s/::(\w+)\z//) { }
|
|
42
|
0 |
7 |
if ($v ne '1.1' and $v ne '1.2')
|
|
47
|
7 |
0 |
if ($url =~ m[\A(?:pl:)?/(\w+(?:/\w+)*)/(\w*)\z]) { }
|
|
|
0 |
0 |
elsif ($url =~ m[\Ahttps?:/(/?)]i) { }
|
|
56
|
4 |
3 |
if exists $INC{$mod_pm}
|
|
59
|
0 |
3 |
if $pkg =~ /\A(main)\z/
|
|
60
|
0 |
3 |
if $pkg_exists and defined ${"${pkg}::VERSION";}
|
|
63
|
1 |
2 |
if $@
|
|
66
|
2 |
4 |
if ($action eq 'list') { }
|
|
|
0 |
4 |
elsif ($action eq 'info') { }
|
|
|
4 |
0 |
elsif ($action eq 'meta' or $action eq 'call') { }
|
|
67
|
1 |
1 |
if length $func
|
|
74
|
0 |
0 |
$func =~ /\A[\@\$\%]/ ? :
|
|
|
0 |
0 |
$func =~ /\A\w+\z/ ? :
|
|
|
0 |
0 |
!length($func) ? :
|
|
83
|
1 |
3 |
if not length $func and $action eq 'call'
|
|
88
|
2 |
1 |
if (length $func) { }
|
|
89
|
0 |
0 |
$pkg_exists ? :
|
|
|
0 |
2 |
unless $meta = do {
"${pkg}::SPEC"
}->{$func}
|
|
104
|
2 |
1 |
if ($action eq 'meta')
|
|
114
|
0 |
0 |
if ($meta->{'features'} and $meta->{'features'}{'progress'})
|
|
122
|
0 |
1 |
if ($aa =~ /array/) { }
|
|
|
0 |
1 |
elsif ($aa eq 'hashref') { }
|
|
127
|
0 |
0 |
unless $convres->[0] == 200
|
|
128
|
0 |
0 |
if ($aa =~ /ref/) { }
|
|
147
|
0 |
1 |
if ($meta->{'result_naked'})
|
|
152
|
1 |
0 |
if (defined $res->[2])
|
|
153
|
0 |
1 |
if ($meta->{'result'} and $meta->{'result'}{'schema'} and $meta->{'result'}{'schema'}[0] eq 'buf')
|
|
167
|
0 |
0 |
if ($is_unix) { }
|
|
182
|
0 |
0 |
if /\Aargs\z/
|
|
191
|
0 |
0 |
if $htres->{'status'} != 200
|
|
193
|
0 |
0 |
unless $htres->{'headers'}{'content-type'} eq 'application/json'
|
|
195
|
0 |
0 |
unless $htres->{'headers'}{'x-riap-v'} =~ /\A1\.1(\.\d+)?\z/
|