| line |
true |
false |
branch |
|
157
|
1664 |
0 |
@_ == 1 ? : |
|
197
|
8 |
0 |
if ($val =~ /^([^']*)'([^']*)'(.*)\z/s) { } |
|
|
0 |
0 |
elsif ($val =~ /^([^']*)'([^']*)\z/s) { } |
|
229
|
455 |
1159 |
unless defined $raw |
|
235
|
0 |
1614 |
unless $raw =~ /\A$SPCZ($FIRST)$SPCZ/go |
|
241
|
1603 |
832 |
unless $raw =~ /\G[^;]*(\;$SPCZ)+/go |
|
242
|
11 |
821 |
unless $raw =~ /\G($PARAMNAME)\s*=\s*/go |
|
244
|
0 |
821 |
unless $raw =~ /\G(?:$QUOTED_STRING|($ENCTOKEN)|($TOKEN)|($BADTOKEN))/g |
|
246
|
467 |
354 |
if (defined $qstr) |
|
250
|
0 |
821 |
if (defined $badtoken) |
|
262
|
0 |
348 |
defined $badtoken ? : |
|
|
6 |
348 |
defined $enctoken ? : |
|
|
467 |
354 |
defined $qstr ? : |
|
268
|
16 |
805 |
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
|
1603 |
5 |
unless ref $self |
|
353
|
100 |
1606 |
if @_ > 2 |
|
370
|
88 |
0 |
defined $val ? : |
|
388
|
62 |
50 |
unless $key =~ /^[a-z][a-z-_0-9]*$/ |
|
389
|
0 |
50 |
unless defined($val = $self->{$key}) |