Condition Coverage

blib/lib/OpenAPI/Modern.pm
Criterion Covered Total %
condition 58 81 71.6


and 3 conditions

line !l l&&!r l&&r condition
193 0 2 0 $request and $options->{'request'}
2 0 0 $request and $options->{'request'} and $request != $options->{'request'}
286 66 177 3 $options->{'request'} and my $error = $options->{'request'}->error
297 62 0 2 $options->{'request'} and lc $options->{'request'}->method ne $method
314 12 2 2 exists $options->{'path_template'} and $options->{'path_template'} ne $path_template
318 2 8 4 $options->{'method'} and lc $options->{'method'} ne $method
340 180 2 41 not $path_template and $options->{'request'}
2 0 41 not $path_template and $options->{'request'} and my $uri_path = $options->{'request'}->url->path
343 41 0 0 exists $schema->{'servers'} and @{$schema->{'servers'}}
364 32 0 2 $options->{'path_captures'} and not is_equal($options->{'path_captures'}, \%path_captures)
390 62 114 4 exists $options->{'path_captures'} and not is_equal([sort(keys %{$$options{"path_captures"}})], [sort(@capture_names)])
416 8 100 2 exists $options->{'path_captures'} and not is_equal([map(($_ . ""), @$options->{'path_captures'}{@capture_names})], \@capture_values)
520 64 4 12 not defined $media_type and exists $content_obj->{'*/*'}
543 44 22 10 $content_type =~ m[^text/]u and my $charset = $message->content->charset
632 0 86 46 XXX and exists $schema->{'type'}
86 0 46 XXX and exists $schema->{'type'} and not XXX
86 28 18 XXX and exists $schema->{'type'} and not XXX and grep(($schema->{'type'} eq $_), ("number", "integer"))
28 0 18 XXX and exists $schema->{'type'} and not XXX and grep(($schema->{'type'} eq $_), ("number", "integer")) and &looks_like_number($data)
2 32 80 defined $data and not XXX

or 2 conditions

line l !l condition
283 0 246 $options->{'errors'} //= []
453 1 46 $param_obj->{'allowReserved'} // 0
512 80 4 $message->headers->content_type // ""
80 4 (split(/;/u, $message->headers->content_type // "", 2))[0] // ""
530 0 0 $content_obj->{$media_type}{'schema'}{'properties'} // {}
590 45 0 $state->{'annotations'} // []

or 3 conditions

line l !l&&r !l&&!r condition
194 0 2 0 $options->{'request'} //= $request
519 62 2 16 &first(sub {
535 0 0 0 $content_type =~ m[^multipart/]u or $content_type eq "application/x-www-form-urlencoded"
561 0 0 4 not defined $schema or XXX ? !keys(%$schema) : $schema