| blib/lib/MetaCPAN/Client.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 35 | 57.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 198 | 0 | 0 | 0 | exists $params->{'fields'} and not is_arrayref($params->{'fields'}) |
| 281 | 2 | 41 | 0 | scalar @_ == 3 and !defined($_[2]) || is_hashref($_[2]) |
| 300 | 44 | 0 | 1 | $type eq "cve" and is_hashref($response) |
| 44 | 0 | 1 | $type eq "cve" and is_hashref($response) and is_arrayref($response->{'cve'}) | |
| 364 | 0 | 1 | 41 | defined $arg and not is_ref($arg) |
| line | l | !l | condition |
|---|---|---|---|
| 117 | 0 | 1 | shift() || {} |
| 166 | 0 | 0 | shift() || 100 |
| 291 | 0 | 46 | $fields_filter || '' |
| 342 | 3 | 9 | $params ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 45 | 0 | 19 | 0 | $args{'request'} ||= "MetaCPAN::Client::Request"->new(("ua", $args{'ua'}) x !!$args{'ua'}, ("ua_args", $args{'ua_args'}) x !!$args{'ua_args'}, ("domain", $args{'domain'}) x !!$args{'domain'}, ("debug", $args{'debug'}) x !!$args{'debug'}) |
| 281 | 40 | 0 | 1 | !defined($_[2]) || is_hashref($_[2]) |
| 6 | 0 | 43 | scalar @_ == 2 or scalar @_ == 3 and !defined($_[2]) || is_hashref($_[2]) | |
| 339 | 9 | 3 | 1 | not defined $params or is_hashref($params) |