| blib/lib/MetaCPAN/API.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 63 | 4 | 11 | $extra ? : |
| 75 | 1 | 4 | unless defined $url |
| 78 | 2 | 2 | unless ref $query and ref $query eq "HASH" |
| 99 | 1 | 23 | unless ref $result and ref $result eq "HASH" |
| 102 | 1 | 22 | unless defined $url |
| 105 | 21 | 1 | if (defined(my $success = $result->{'success'})) { } |
| 107 | 2 | 19 | defined $original ? : |
| 109 | 2 | 19 | unless $success |
| 114 | 0 | 19 | unless defined(my $content = $result->{'content'}) |
| 126 | 1 | 18 | unless @_ % 2 == 0 |
| 131 | 1 | 17 | if (scalar grep({ref $_;} values %extra)) |