| blib/lib/MetaCPAN/API.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 59 | 4 | 11 | $extra ? : |
| 71 | 1 | 4 | unless defined $url |
| 74 | 2 | 2 | unless ref $query and ref $query eq 'HASH' |
| 95 | 1 | 23 | unless ref $result and ref $result eq 'HASH' |
| 98 | 1 | 22 | unless defined $url |
| 101 | 21 | 1 | if (defined(my $success = $$result{'success'})) { } |
| 103 | 2 | 19 | defined $original ? : |
| 105 | 2 | 19 | unless $success |
| 110 | 0 | 19 | unless defined(my $content = $$result{'content'}) |
| 122 | 1 | 18 | unless @_ % 2 == 0 |
| 127 | 1 | 17 | if (scalar grep({ref $_;} values %extra)) |