| blib/lib/MetaCPAN/API.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 61 | 4 | 11 | $extra ? : |
| 73 | 1 | 4 | unless defined $url |
| 76 | 2 | 2 | unless ref $query and ref $query eq 'HASH' |
| 97 | 1 | 23 | unless ref $result and ref $result eq 'HASH' |
| 100 | 1 | 22 | unless defined $url |
| 103 | 21 | 1 | if (defined(my $success = $$result{'success'})) { } |
| 105 | 2 | 19 | defined $original ? : |
| 107 | 2 | 19 | unless $success |
| 112 | 0 | 19 | unless defined(my $content = $$result{'content'}) |
| 124 | 1 | 18 | unless @_ % 2 == 0 |
| 129 | 1 | 17 | if (scalar grep({ref $_;} values %extra)) |