Condition Coverage

blib/lib/YATT/Lite/WebMVC0/Connection.pm
Criterion Covered Total %
condition 47 107 43.9


and 3 conditions

line !l l&&!r l&&r condition
65 0 0 0 $prop->{'cf_cgi'} and my $sub = $prop->{'cf_cgi'}->can($method)
204 0 0 187 !$prop->{'cf_no_unicode_params'} && $prop->{'cf_encoding'}
212 153 0 9 $env->{'CONTENT_TYPE'} and defined $env->{'CONTENT_LENGTH'}
261 0 0 16 defined $obj and my $sub = $obj->can($method)
288 11 6 0 defined $file and $file =~ m[^/]
351 0 0 8 $scheme eq 'http' and $port == 80
0 0 0 $scheme eq 'https' and $port == 443
363 14 0 5 defined $param and ref $param
373 0 0 3 $fkeys = UNIVERSAL::can($param, 'keys') and $fgetall = UNIVERSAL::can($param, 'get_all')
415 4 0 4 not $prop->{'cf_is_index'} and my $fn = $prop->{'cf_file'}
453 2 4 2 defined $prop->{'cf_file'} and not $prop->{'cf_is_index'}
476 1 0 0 $prop->{'cf_cgi'} and my $sub = $prop->{'cf_cgi'}->can('request_uri')
490 0 0 3 @_ and defined $_[0]
492 1 0 0 $_[0] =~ m[^(?:\w+:)?//([^/]+)] and $1 ne ($glob->mkhost // '')
591 1 1 0 defined $value and $value =~ /$pat/

or 2 conditions

line l !l condition
186 9 169 $real_ct // ''
232 0 16 $cgi->content_type // ''
247 0 0 $env->{'yatt.script_name'} // ''
254 0 0 $prop->{'cf_location'} // ''
335 0 0 $default // 'localhost'
341 16 2 $scheme ||= 'http'
359 0 19 $sep //= '&'
412 4 0 $prop->{'cf_location'} // '/'
437 480 96 $page //= ''
451 6 2 $prop->{'cf_location'} // '/'
470 17 1 (shift())->request_uri // ''
492 0 0 $glob->mkhost // ''
629 8 4 $qual // 1

or 3 conditions

line l !l&&r !l&&!r condition
66 3 0 0 $prop->{'cf_env'}{$env} // $default
68 0 0 0 &$sub($prop->{'cf_cgi'}) // $default
120 0 0 0 $prop->{'cf_hmv'} // do { $prop->{'cf_cgi'}->parameters if $prop->{'cf_is_psgi'} }
141 0 3 0 $prop->{'cf_parameters'} or $prop->{'cf_hmv'}
295 11 0 6 not defined $file or $file eq ''
317 8 8 0 $env->{'psgi.url_scheme'} || $prop->{'cf_cgi'}->protocol
348 0 8 0 $env->{'SERVER_NAME'} // _invoke_or('localhost', $prop->{'cf_cgi'}, 'server_name')
349 0 8 0 $env->{'SERVER_PORT'} || _invoke_or(80, $prop->{'cf_cgi'}, 'server_port')
351 8 0 0 $scheme eq 'http' and $port == 80 or $scheme eq 'https' and $port == 443
373 3 0 0 $fkeys = UNIVERSAL::can($param, 'keys') and $fgetall = UNIVERSAL::can($param, 'get_all') or $fkeys = $fgetall = UNIVERSAL::can($param, 'param')
579 2 0 0 shift() // croak('Undefined name!')
580 2 0 0 shift() // croak('Undefined type!')