| line |
true |
false |
branch |
|
50
|
0 |
0 |
unless ($dist) |
|
60
|
0 |
0 |
if (my $first = 'Module::CoreList'->first_release($dist, $vers)) { } |
|
61
|
0 |
0 |
$vers ? : |
|
80
|
0 |
0 |
unless ($cmd) |
|
88
|
0 |
0 |
unless ($dist) |
|
95
|
0 |
0 |
unless $cmd eq 'belongs' or $cmd eq 'changes' |
|
109
|
0 |
0 |
if ($cmd eq 'latest' or $cmd eq 'release') |
|
114
|
0 |
0 |
if ($cmd eq 'dist') |
|
119
|
0 |
0 |
if ($cmd eq 'test' or $cmd eq 'tests') |
|
124
|
0 |
0 |
if ($cmd eq 'info' or $cmd eq 'abstract') |
|
129
|
0 |
0 |
if ($cmd eq 'license') |
|
134
|
0 |
0 |
if ($cmd eq 'belongs') |
|
140
|
0 |
0 |
if ($cmd eq 'changes') |
|
151
|
0 |
0 |
if defined $hints->{'Type'} |
|
182
|
0 |
0 |
unless ($response->is_success) |
|
184
|
0 |
0 |
if ($status == 404) { } |
|
199
|
0 |
0 |
unless ($json) |
|
215
|
0 |
0 |
unless my $d_hash = &try(sub {
$Serializer->thaw($json);
}
, &catch(sub {
&broadcast('message', $hints->{'Context'}, $hints->{'Channel'}, "thaw failure; err: $_");
undef;
}
)) |
|
217
|
0 |
0 |
unless ($d_hash and ref $d_hash eq 'HASH') |
|
230
|
0 |
0 |
if ($type eq 'abstract') |
|
237
|
0 |
0 |
if ($type eq 'dist') |
|
243
|
0 |
0 |
if ($type eq 'latest') |
|
250
|
0 |
0 |
if ($type eq 'license') |
|
252
|
0 |
0 |
unless $d_hash->{'license'} |
|
257
|
0 |
0 |
if ($type eq 'tests') |
|
259
|
0 |
0 |
unless $d_hash->{'tests'} |
|
261
|
0 |
0 |
keys %{{} unless $d_hash->{'tests'};} ? : |
|
274
|
0 |
0 |
if ($type eq 'belongs') |
|
280
|
0 |
0 |
if ($type eq 'changes') |
|
293
|
0 |
0 |
if $resp |