| 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
|
67 |
0 |
if (my $ixh = $prop->{'params_hash'}) { } |
|
|
0 |
0 |
elsif (my $hmv = $prop->{'cf_hmv'}) { } |
|
|
0 |
0 |
elsif (my $cgi = $prop->{'cf_cgi'}) { } |
|
89
|
55 |
12 |
unless @_ |
|
90
|
0 |
12 |
unless defined(my $key = shift()) |
|
92
|
0 |
12 |
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->{'params_hash'}) { } |
|
|
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 |
2 |
unless $prop->{'params_hash'} or $prop->{'cf_hmv'} |
|
149
|
0 |
45 |
unless $glob->is_form_content_type($cgi->content_type) |
|
150
|
45 |
0 |
unless ($prop->{'cf_no_nested_query'}) |
|
151
|
29 |
16 |
if ($prop->{'cf_is_psgi'}) { } |
|
161
|
36 |
9 |
if ($real_ct // '') eq '' |
|
163
|
9 |
7 |
if $real_ct =~ /$check_ct/ |
|
187
|
9 |
20 |
if ($env->{'CONTENT_TYPE'} and defined $env->{'CONTENT_LENGTH'}) { } |
|
191
|
0 |
5 |
if (exists $body->{$key}) |
|
207
|
0 |
16 |
if ($cgi->content_type // '') eq 'application/json' |
|
232
|
16 |
0 |
if (defined $obj and my $sub = $obj->can($method)) { } |
|
251
|
0 |
17 |
if ($opts{'mapped_path'}) { } |
|
259
|
0 |
17 |
if (defined $file and $file =~ m[^/]) { } |
|
263
|
13 |
4 |
if (($dir = $req) =~ s[([^/]+)$][]) |
|
266
|
11 |
6 |
if (not defined $file or $file eq '') { } |
|
|
2 |
4 |
elsif ($file eq '.') { } |
|
280
|
14 |
3 |
unless $opts{'local'} |
|
299
|
10 |
8 |
if nonempty($env->{'HTTP_HOST'}) |
|
303
|
8 |
0 |
if (my $port = $env->{'SERVER_PORT'} || _invoke_or(80, $prop->{'cf_cgi'}, 'server_port')) |
|
305
|
0 |
0 |
unless $scheme eq 'http' and $port == 80 or $scheme eq 'https' and $port == 443 |
|
317
|
14 |
4 |
unless (defined $param and ref $param) |
|
318
|
0 |
14 |
wantarray ? : |
|
322
|
2 |
2 |
if (UNIVERSAL::isa($param, ref $self)) |
|
327
|
2 |
2 |
if (ref $param eq 'HASH') { } |
|
|
2 |
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') { } |
|
345
|
0 |
4 |
if (not @enc_param) { } |
|
346
|
0 |
0 |
wantarray ? : |
|
348
|
0 |
4 |
wantarray ? : |
|
357
|
2 |
6 |
if defined $prop->{'cf_file'} and not $prop->{'cf_is_index'} |
|
360
|
6 |
2 |
if (defined(my $sp = $prop->{'cf_subpath'})) |
|
364
|
4 |
4 |
if (wantarray) { } |
|
380
|
17 |
1 |
if ($prop->{'cf_env'}) { } |
|
|
0 |
1 |
elsif ($prop->{'cf_cgi'} and my $sub = $prop->{'cf_cgi'}->can('request_uri')) { } |
|
394
|
0 |
3 |
unless @_ and defined $_[0] |
|
396
|
2 |
1 |
if (ref $_[0]) { } |
|
|
0 |
1 |
elsif ($_[0] =~ m[^(?:\w+:)?//([^/]+)] and $1 ne ($glob->mkhost // '')) { } |
|
409
|
0 |
3 |
if ($prop->{'header_was_sent'}++) |
|
431
|
0 |
0 |
if (exists $prop->{'session'}) { } |
|
440
|
0 |
0 |
if (defined(my $sess = $prop->{'session'})) |
|
461
|
0 |
0 |
if (exists $prop->{'current_user'}) { } |
|
|
0 |
0 |
elsif (defined $prop->{'cf_system'}) { } |
|
470
|
0 |
0 |
unless @_ |
|
471
|
0 |
0 |
unless defined $cu |
|
487
|
0 |
0 |
ref $type eq 'Regexp' ? : |
|
488
|
0 |
0 |
unless my $pat_sub = $glob->can("re_$type") |
|
495
|
0 |
0 |
if (defined $value and $value =~ /$pat/) { } |
|
|
0 |
0 |
elsif ($diag) { } |
|
|
0 |
0 |
elsif (not defined $value) { } |
|
498
|
0 |
0 |
ref $diag eq 'CODE' ? : |
|
502
|
0 |
0 |
if $opts->{'allow_undef'} |
|
521
|
0 |
4 |
if (keys %opts) |
|
528
|
0 |
4 |
unless my $langlist = $env->{'HTTP_ACCEPT_LANGUAGE'} |
|
536
|
0 |
4 |
if ($filter) |
|
538
|
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') { } |
|
554
|
1 |
3 |
if ($detail) { } |
|
557
|
1 |
2 |
if ($long) { } |
|
565
|
1 |
5 |
$dup{$_->[0]}++ ? : |
|
|
2 |
1 |
wantarray ? : |