| blib/lib/MetaCPAN/API.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 64 | 4 | 11 | $extra ? : |
| 76 | 1 | 4 | unless defined $url |
| 79 | 2 | 2 | unless ref $query and ref $query eq 'HASH' |
| 100 | 1 | 23 | unless ref $result and ref $result eq 'HASH' |
| 103 | 1 | 22 | unless defined $url |
| 106 | 21 | 1 | if (defined(my $success = $result->{'success'})) { } |
| 108 | 2 | 19 | defined $original ? : |
| 110 | 2 | 19 | unless $success |
| 115 | 0 | 19 | unless defined(my $content = $result->{'content'}) |
| 127 | 1 | 18 | unless @_ % 2 == 0 |
| 132 | 1 | 17 | if (scalar grep({ref $_;} values %extra)) |