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
198 0 2 0 $request and $options->{'request'}
2 0 0 $request and $options->{'request'} and $request != $options->{'request'}
302 70 177 3 $options->{'request'} and my $error = $options->{'request'}->error
313 66 0 2 $options->{'request'} and lc $options->{'request'}->method ne $method
330 12 2 2 exists $options->{'path_template'} and $options->{'path_template'} ne $path_template
334 2 8 4 $options->{'method'} and lc $options->{'method'} ne $method
356 184 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
359 41 0 0 exists $schema->{'servers'} and @{$schema->{'servers'}}
380 32 0 2 $options->{'path_captures'} and not is_equal($options->{'path_captures'}, \%path_captures)
406 66 114 4 exists $options->{'path_captures'} and not is_equal([sort(keys %{$$options{"path_captures"}})], [sort(@capture_names)])
432 8 100 2 exists $options->{'path_captures'} and not is_equal([map(($_ . ""), @$options->{'path_captures'}{@capture_names})], \@capture_values)
536 64 4 12 not defined $media_type and exists $content_obj->{'*/*'}
559 44 22 10 $content_type =~ m[^text/]u and my $charset = $message->content->charset
648 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
299 0 250 $options->{'errors'} //= []
469 1 46 $param_obj->{'allowReserved'} // 0
528 80 4 $message->headers->content_type // ""
80 4 (split(/;/u, $message->headers->content_type // "", 2))[0] // ""
546 0 0 $content_obj->{$media_type}{'schema'}{'properties'} // {}
606 45 0 $state->{'annotations'} // []

or 3 conditions

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