| line |
true |
false |
branch |
|
157
|
2719 |
0 |
@_ == 1 ? : |
|
197
|
18 |
0 |
if ($val =~ /^([^']*)'([^']*)'(.*)\z/s) { } |
|
|
0 |
0 |
elsif ($val =~ /^([^']*)'([^']*)\z/s) { } |
|
231
|
827 |
1824 |
unless defined $raw |
|
237
|
0 |
2651 |
unless $raw =~ /\A$SPCZ($FIRST)$SPCZ/go |
|
243
|
2612 |
1336 |
unless $raw =~ /\G[^;]*(\;$SPCZ)+/go |
|
244
|
39 |
1297 |
unless $raw =~ /\G($PARAMNAME)\s*=\s*/go |
|
246
|
0 |
1297 |
unless $raw =~ /\G(?:$QUOTED_STRING|($ENCTOKEN)|($TOKEN)|($BADTOKEN)|())/g |
|
248
|
774 |
523 |
if (defined $qstr) |
|
252
|
0 |
1297 |
if (defined $badtoken) |
|
261
|
0 |
0 |
if (defined $badtoken) |
|
266
|
497 |
16 |
defined $token ? : |
|
|
0 |
513 |
defined $badtoken ? : |
|
|
10 |
513 |
defined $enctoken ? : |
|
|
774 |
523 |
defined $qstr ? : |
|
273
|
26 |
1271 |
if ($param =~ /\*/ and $param =~ /^ ([^*]+) (?: \* ([^*]+) )? (\*)? \z/sx) { } |
|
277
|
18 |
8 |
if (defined $3) |
|
291
|
23 |
1248 |
if (defined $params{$param}) |
|
296
|
25 |
1272 |
if (($val // "") eq "") |
|
305
|
3 |
19 |
if (defined $params{$param}) |
|
312
|
18 |
4 |
if ($rfc2231encoding_is_used{$param}) |
|
314
|
18 |
0 |
if (defined $enc) |
|
320
|
0 |
18 |
if defined $lang and $lang ne "" |
|
324
|
0 |
22 |
if ($params{$param} eq "") |
|
333
|
19 |
2632 |
if (%dup_params) |
|
340
|
25 |
2626 |
if (%empty_params) |
|
363
|
2640 |
5 |
unless ref $self |
|
383
|
122 |
2641 |
if @_ > 2 |
|
400
|
106 |
0 |
defined $val ? : |
|
418
|
82 |
53 |
unless $key =~ /^[a-z][a-z-_0-9]*$/ |
|
419
|
0 |
53 |
unless defined($val = $self->{$key}) |