| line |
true |
false |
branch |
|
33
|
0 |
4 |
unless ($prop->{'cf_is_psgi'}) |
|
65
|
3 |
0 |
if ($prop->{'cf_env'}) { } |
|
|
0 |
0 |
elsif ($prop->{'cf_cgi'} and my $sub = $prop->{'cf_cgi'}->can($method)) { } |
|
88
|
299 |
0 |
if (my $ixh = $prop->{'cf_parameters'}) { } |
|
|
0 |
0 |
elsif (my $hmv = $prop->{'cf_hmv'}) { } |
|
|
0 |
0 |
elsif (my $cgi = $prop->{'cf_cgi'}) { } |
|
89
|
285 |
14 |
unless @_ |
|
90
|
0 |
14 |
unless defined(my $key = shift()) |
|
92
|
0 |
14 |
if (@_) { } |
|
93
|
0 |
0 |
if (@_ >= 2) { } |
|
103
|
0 |
0 |
unless @_ |
|
104
|
0 |
0 |
if (@_ == 1) { } |
|
105
|
0 |
0 |
wantarray ? : |
|
120
|
1 |
0 |
if (my $ixh = $prop->{'cf_parameters'}) { } |
|
|
0 |
0 |
elsif (my $hmv = $prop->{'cf_hmv'} // do {
$prop->{'cf_cgi'}->parameters if $prop->{'cf_is_psgi'}
}) { } |
|
|
0 |
0 |
elsif (my $cgi = $prop->{'cf_cgi'}) { } |
|
121
|
0 |
1 |
unless @_ |
|
122
|
0 |
1 |
unless defined(my $key = shift()) |
|
129
|
0 |
0 |
if $prop->{'cf_is_psgi'} |
|
130
|
0 |
0 |
unless @_ |
|
131
|
0 |
0 |
wantarray ? : |
|
141
|
0 |
3 |
unless $prop->{'cf_parameters'} or $prop->{'cf_hmv'} |
|
148
|
0 |
0 |
unless (defined $key) |
|
151
|
0 |
0 |
if (my $dict = $prop->{'cf_parameters'}) { } |
|
|
0 |
0 |
elsif ($dict = $prop->{'cf_hmv'}) { } |
|
|
0 |
0 |
elsif (($dict = $prop->{'cf_cgi'})->can('parameters')) { } |
|
|
0 |
0 |
elsif ($dict->can('delete')) { } |
|
173
|
0 |
178 |
unless $glob->is_form_content_type($cgi->content_type) |
|
174
|
0 |
178 |
if $prop->{'cf_parameters'} |
|
175
|
178 |
0 |
unless ($prop->{'cf_no_nested_query'}) |
|
176
|
162 |
16 |
if ($prop->{'cf_is_psgi'}) { } |
|
186
|
169 |
9 |
if ($real_ct // '') eq '' |
|
188
|
9 |
7 |
if $real_ct =~ /$check_ct/ |
|
212
|
9 |
153 |
if ($env->{'CONTENT_TYPE'} and defined $env->{'CONTENT_LENGTH'}) { } |
|
216
|
0 |
5 |
if (exists $body->{$key}) |
|
232
|
0 |
16 |
if ($cgi->content_type // '') eq 'application/json' |
|
245
|
0 |
2 |
unless ($prop->{'cf_site_prefix'}) |
|
261
|
16 |
0 |
if (defined $obj and my $sub = $obj->can($method)) { } |
|
280
|
0 |
17 |
if ($opts{'mapped_path'}) { } |
|
288
|
0 |
17 |
if (defined $file and $file =~ m[^/]) { } |
|
292
|
13 |
4 |
if (($dir = $req) =~ s[([^/]+)$][]) |
|
295
|
11 |
6 |
if (not defined $file or $file eq '') { } |
|
|
2 |
4 |
elsif ($file eq '.') { } |
|
309
|
14 |
3 |
unless $opts{'local'} |
|
326
|
0 |
0 |
unless my $host = $env->{'HTTP_HOST'} |
|
335
|
0 |
0 |
unless $env->{'SERVER_NAME'} |
|
345
|
10 |
8 |
if nonempty($env->{'HTTP_HOST'}) |
|
349
|
8 |
0 |
if (my $port = $env->{'SERVER_PORT'} || _invoke_or(80, $prop->{'cf_cgi'}, 'server_port')) |
|
351
|
0 |
0 |
unless $scheme eq 'http' and $port == 80 or $scheme eq 'https' and $port == 443 |
|
363
|
14 |
5 |
unless (defined $param and ref $param) |
|
364
|
0 |
14 |
wantarray ? : |
|
368
|
3 |
2 |
if (UNIVERSAL::isa($param, ref $self)) |
|
373
|
2 |
3 |
if (ref $param eq 'HASH') { } |
|
|
3 |
0 |
elsif ($fkeys = UNIVERSAL::can($param, 'keys') and $fgetall = UNIVERSAL::can($param, 'get_all') or $fkeys = $fgetall = UNIVERSAL::can($param, 'param')) { } |
|
|
0 |
0 |
elsif (ref $param eq 'ARRAY') { } |
|
385
|
0 |
0 |
if (grep {not defined $_;} @$param) |
|
394
|
5 |
0 |
if (@enc_param) { } |
|
395
|
0 |
0 |
wantarray ? : |
|
397
|
0 |
5 |
wantarray ? : |
|
409
|
4 |
4 |
if (my $sn = $env->{'yatt.script_name'}) { } |
|
415
|
4 |
4 |
if (not $prop->{'cf_is_index'} and my $fn = $prop->{'cf_file'}) |
|
433
|
576 |
0 |
@_ <= 1 ? : |
|
435
|
0 |
576 |
unless rootname($prop->{'cf_file'}) eq $file |
|
439
|
192 |
384 |
if (empty(my $subpath = $prop->{'cf_subpath'})) { } |
|
|
128 |
256 |
elsif ($page eq '') { } |
|
453
|
2 |
6 |
if defined $prop->{'cf_file'} and not $prop->{'cf_is_index'} |
|
456
|
6 |
2 |
if (defined(my $sp = $prop->{'cf_subpath'})) |
|
460
|
4 |
4 |
if (wantarray) { } |
|
476
|
17 |
1 |
if (my YATT::Lite::WebMVC0::Connection::Env $env = $prop->{'cf_env'}) { } |
|
|
0 |
1 |
elsif ($prop->{'cf_cgi'} and my $sub = $prop->{'cf_cgi'}->can('request_uri')) { } |
|
490
|
0 |
3 |
unless @_ and defined $_[0] |
|
492
|
2 |
1 |
if (ref $_[0]) { } |
|
|
0 |
1 |
elsif ($_[0] =~ m[^(?:\w+:)?//([^/]+)] and $1 ne ($glob->mkhost // '')) { } |
|
505
|
0 |
3 |
if ($prop->{'header_was_sent'}++) |
|
527
|
0 |
0 |
if (exists $prop->{'session'}) { } |
|
536
|
0 |
0 |
if (defined(my $sess = $prop->{'session'})) |
|
557
|
0 |
0 |
if (exists $prop->{'current_user'}) { } |
|
|
0 |
0 |
elsif (defined $prop->{'cf_system'}) { } |
|
566
|
0 |
0 |
unless @_ |
|
567
|
0 |
0 |
unless defined $cu |
|
583
|
0 |
2 |
ref $type eq 'Regexp' ? : |
|
584
|
0 |
2 |
unless my $pat_sub = $glob->can("re_$type") |
|
591
|
0 |
2 |
if (defined $value and $value =~ /$pat/) { } |
|
|
0 |
2 |
elsif ($diag) { } |
|
|
1 |
1 |
elsif (not defined $value) { } |
|
594
|
0 |
0 |
ref $diag eq 'CODE' ? : |
|
598
|
0 |
1 |
if $opts->{'allow_undef'} |
|
617
|
0 |
4 |
if (keys %opts) |
|
624
|
0 |
4 |
unless my $langlist = $env->{'HTTP_ACCEPT_LANGUAGE'} |
|
632
|
0 |
4 |
if ($filter) |
|
634
|
0 |
0 |
if (ref $filter eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $filter eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $filter eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $filter eq 'ARRAY') { } |
|
650
|
1 |
3 |
if ($detail) { } |
|
653
|
1 |
2 |
if ($long) { } |
|
661
|
1 |
5 |
$dup{$_->[0]}++ ? : |
|
|
2 |
1 |
wantarray ? : |