line |
true |
false |
branch |
157
|
1746 |
0 |
@_ == 1 ? : |
197
|
8 |
0 |
if ($val =~ /^([^']*)'([^']*)'(.*)\z/s) { } |
|
0 |
0 |
elsif ($val =~ /^([^']*)'([^']*)\z/s) { } |
229
|
460 |
1220 |
unless defined $raw |
235
|
0 |
1680 |
unless $raw =~ /\A$SPCZ($FIRST)$SPCZ/go |
241
|
1669 |
870 |
unless $raw =~ /\G[^;]*(\;$SPCZ)+/go |
242
|
11 |
859 |
unless $raw =~ /\G($PARAMNAME)\s*=\s*/go |
244
|
0 |
859 |
unless $raw =~ /\G(?:$QUOTED_STRING|($ENCTOKEN)|($TOKEN)|($BADTOKEN))/g |
246
|
486 |
373 |
if (defined $qstr) |
250
|
0 |
859 |
if (defined $badtoken) |
262
|
0 |
367 |
defined $badtoken ? : |
|
6 |
367 |
defined $enctoken ? : |
|
486 |
373 |
defined $qstr ? : |
268
|
16 |
843 |
if ($param =~ /\*/ and $param =~ /^ ([^*]+) (?: \* ([^*]+) )? (\*)? \z/sx) { } |
272
|
8 |
8 |
if (defined $3) |
298
|
8 |
4 |
if ($rfc2231encoding_is_used{$param}) |
300
|
8 |
0 |
if (defined $enc) |
306
|
0 |
8 |
if defined $lang and $lang ne '' |
333
|
1669 |
5 |
unless ref $self |
353
|
120 |
1670 |
if @_ > 2 |
370
|
104 |
0 |
defined $val ? : |
388
|
80 |
53 |
unless $key =~ /^[a-z][a-z-_0-9]*$/ |
389
|
0 |
53 |
unless defined($val = $self->{$key}) |