| line |
true |
false |
branch |
|
28
|
0 |
0 |
if $rv |
|
38
|
0 |
0 |
if $self->{'P'} |
|
42
|
0 |
0 |
if ($method eq 'GET') { } |
|
|
0 |
0 |
elsif ($method eq 'POST') { } |
|
50
|
0 |
0 |
unless ref $P |
|
74
|
8 |
35 |
if (3 == @_) |
|
75
|
0 |
8 |
if (ref $value) { } |
|
83
|
27 |
16 |
unless wantarray |
|
109
|
0 |
0 |
if ($l != length $C) |
|
114
|
0 |
0 |
if $C =~ s/%0D%0A/%0A/g |
|
115
|
0 |
0 |
if $C =~ s/%0D/%0A/g |
|
116
|
0 |
0 |
if $C =~ s/\r\n/\n/g |
|
117
|
0 |
0 |
if ($bad) |
|
126
|
0 |
0 |
if ($ct =~ s/; charset=(.+)//) |
|
130
|
0 |
0 |
if ($ct eq 'application/x-www-form-urlencoded') { } |
|
|
0 |
0 |
elsif ($ct eq 'application/json' or $ct eq 'text/json') { } |
|
146
|
0 |
0 |
if ($JSON::XS::VERSION > 2) { } |
|
153
|
0 |
0 |
if ($@) |
|
157
|
0 |
0 |
unless ('HASH' eq ref $args) |
|
162
|
0 |
0 |
if (ref $v) { } |
|
177
|
0 |
0 |
unless defined $C |
|
185
|
0 |
0 |
if (not exists $form->{$key}) { } |
|
199
|
0 |
0 |
unless defined $value and $value ne '' |
|
203
|
0 |
0 |
unless $charset |
|
206
|
0 |
0 |
if ($charset eq 'UTF-8') |
|
210
|
0 |
0 |
if (defined $U) |