| 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' |
|
107
|
0 |
0 |
if ($cmd eq 'latest' or $cmd eq 'release') |
|
112
|
0 |
0 |
if ($cmd eq 'dist') |
|
117
|
0 |
0 |
if ($cmd eq 'test' or $cmd eq 'tests') |
|
122
|
0 |
0 |
if ($cmd eq 'info' or $cmd eq 'abstract') |
|
127
|
0 |
0 |
if ($cmd eq 'license') |
|
132
|
0 |
0 |
if ($cmd eq 'belongs') |
|
138
|
0 |
0 |
if ($cmd eq 'changes' or $cmd eq 'changelog') |
|
149
|
0 |
0 |
if defined $hints->{'Type'} |
|
180
|
0 |
0 |
unless ($response->is_success) |
|
182
|
0 |
0 |
if ($status == 404) { } |
|
197
|
0 |
0 |
unless ($json) |
|
213
|
0 |
0 |
unless my $d_hash = &try(sub {
$Serializer->thaw($json);
}
, &catch(sub {
&broadcast('message', $hints->{'Context'}, $hints->{'Channel'}, "thaw failure; err: $_");
undef;
}
)) |
|
215
|
0 |
0 |
unless ($d_hash and ref $d_hash eq 'HASH') |
|
228
|
0 |
0 |
if ($type eq 'abstract') |
|
235
|
0 |
0 |
if ($type eq 'dist') |
|
241
|
0 |
0 |
if ($type eq 'latest') |
|
248
|
0 |
0 |
if ($type eq 'license') |
|
250
|
0 |
0 |
unless $d_hash->{'license'} |
|
255
|
0 |
0 |
if ($type eq 'tests') |
|
257
|
0 |
0 |
unless $d_hash->{'tests'} |
|
259
|
0 |
0 |
keys %{{} unless $d_hash->{'tests'};} ? : |
|
272
|
0 |
0 |
if ($type eq 'belongs') |
|
278
|
0 |
0 |
if ($type eq 'changes') |
|
291
|
0 |
0 |
if $resp |