| line |
true |
false |
branch |
|
28
|
0 |
0 |
if ($env->{'CONTENT_TYPE'} || '') =~ /$ct_rx/ and grep(($env->{'REQUEST_METHOD'} eq $_), $class->request_body_methods) |
|
32
|
0 |
0 |
/\A(?:HTTPS?_)?((?:(?!\A)|\ACONTENT_).*)/s ? : |
|
49
|
0 |
0 |
unless defined $meth and "" ne $meth |
|
51
|
0 |
0 |
$hdr ? : |
|
53
|
0 |
0 |
if (grep(($meth eq $_), $class->request_body_methods)) { } |
|
55
|
0 |
0 |
unless ($hdr->{'content_type'} || '') =~ /$ct_rx/ |
|
61
|
0 |
0 |
defined $_ ? : |
|
68
|
0 |
0 |
if ($auth and ($hdr->{'authorization'} || '') =~ /\A\Q$auth\E +([^ ]+) *\z/) { } |
|
69
|
0 |
0 |
unless my $parser = $auth_parser{$auth} |
|
79
|
0 |
0 |
if (exists $param{$name} and $value ne $param{$name}) { } |
|
84
|
0 |
0 |
if $list == $query |
|
89
|
0 |
0 |
if (my(@dupe) = sort(keys %dupe)) |
|
94
|
0 |
0 |
if "" eq $v |
|
109
|
0 |
0 |
unless $self->method |
|
113
|
0 |
0 |
unless $self->ensure_method($self->allowed_methods) |
|
114
|
0 |
0 |
unless $self->ensure_confidential($self->confidential_parameters) |
|
115
|
0 |
0 |
unless $self->ensure_required($self->required_parameters) |
|
125
|
0 |
0 |
if $disallowed |
|
133
|
0 |
0 |
if @missing |
|
142
|
0 |
0 |
if @visible |
|
153
|
0 |
0 |
$self->confidential->{$name} ? : |