| line |
true |
false |
branch |
|
98
|
2 |
98 |
unless length $ct |
|
105
|
0 |
98 |
unless ($ct =~ s[^($re_token)/($re_token)][]u) |
|
106
|
0 |
0 |
unless ($STRICT_PARAMS and $ct =~ s[^($re_token_non_strict)/($re_token_non_strict)][]u) |
|
118
|
0 |
98 |
if ($STRICT_PARAMS and length $ct and not $ct =~ /^;/u) { } |
|
141
|
2 |
45 |
unless length $cd |
|
146
|
0 |
45 |
unless ($cd =~ s/^($re_token)//u) |
|
147
|
0 |
0 |
unless ($STRICT_PARAMS and $cd =~ s/^($re_token_non_strict)//u) |
|
159
|
0 |
45 |
if ($STRICT_PARAMS and length $cd and not $cd =~ /^;/u) { } |
|
177
|
0 |
30 |
unless exists $ct->{'type'} |
|
178
|
0 |
30 |
unless exists $ct->{'subtype'} |
|
180
|
0 |
30 |
unless $ct->{'type'} =~ /^(?:$re_token)*$/u |
|
181
|
0 |
30 |
unless $ct->{'subtype'} =~ /^(?:$re_token)*$/u |
|
183
|
0 |
30 |
if length($ct->{'type'}) + length($ct->{'subtype'}) > 76 |
|
186
|
0 |
30 |
if defined $extra |
|
189
|
30 |
0 |
exists $ct->{'attributes'} ? : |
|
190
|
26 |
4 |
if length $attrs |
|
197
|
0 |
26 |
unless exists $cd->{'type'} |
|
199
|
0 |
26 |
unless $cd->{'type'} =~ /^(?:$re_token)*$/u |
|
201
|
0 |
26 |
if length $cd->{'type'} > 77 |
|
204
|
0 |
26 |
if defined $extra |
|
207
|
26 |
0 |
exists $cd->{'attributes'} ? : |
|
208
|
22 |
4 |
if length $attrs |
|
223
|
0 |
76 |
if $key =~ /$re_escape_extended_value/u |
|
224
|
0 |
76 |
unless defined $value |
|
226
|
14 |
62 |
if ($value =~ /\P{ASCII}/u) |
|
233
|
40 |
36 |
if (not $ascii_value =~ /^(?:$re_token)*$/u or $ascii_value =~ /'/u) |
|
234
|
0 |
40 |
if ($ascii_value =~ /$re_invalid_for_quoted_value/u) |
|
235
|
0 |
0 |
unless @continuous_value |
|
243
|
6 |
70 |
if (length($key) + length($ascii_value) > 75) |
|
244
|
0 |
6 |
if length $key > 71 |
|
245
|
4 |
2 |
$ascii_value =~ /"$/u ? : |
|
247
|
6 |
0 |
unless @continuous_value |
|
250
|
20 |
56 |
if (@continuous_value) |
|
252
|
6 |
14 |
unless (defined $extended_value_charset) |
|
253
|
390 |
18 |
unless not $_ =~ /^(?:$re_token)*$/u |
|
|
4 |
2 |
if grep {$_ =~ /'/u unless not $_ =~ /^(?:$re_token)*$/u;} @continuous_value |
|
254
|
0 |
6 |
if $needs_quote and grep /$re_invalid_for_quoted_value/u, @continuous_value |
|
258
|
14 |
6 |
if (defined $extended_value_charset) { } |
|
|
4 |
2 |
elsif ($needs_quote) { } |
|
267
|
8 |
12 |
if ($value =~ /\P{ASCII}/u and length(my $oneparameter = "; $key*=" . join('', @continuous_value)) <= 78) { } |
|
273
|
12 |
604 |
if (length($key) + length($count) + length($buf) + length($_) + $add_param_len > 78) |
|
274
|
4 |
8 |
if $needs_quote |
|
276
|
6 |
6 |
if defined $extended_value_charset |
|
278
|
0 |
12 |
if length $parameter > 78 |
|
285
|
12 |
0 |
if (length $buf) |
|
286
|
4 |
8 |
if $needs_quote |
|
288
|
6 |
6 |
if defined $extended_value_charset |
|
290
|
0 |
12 |
if length $parameter > 78 |
|
296
|
66 |
10 |
if (not @continuous_value or $PRE_2231_FORM) |
|
301
|
48 |
8 |
if length $ret |
|
312
|
930 |
32 |
unless $_[0] =~ s/^\(//u |
|
316
|
10 |
398 |
if ($ch eq '(') { } |
|
|
42 |
356 |
elsif ($ch eq ')') { } |
|
|
12 |
344 |
elsif ($ch eq '\\') { } |
|
320
|
32 |
10 |
if $level == 0 |
|
325
|
0 |
0 |
if $level != 0 and $STRICT_PARAMS |
|
337
|
147 |
78 |
unless $_ =~ /^(.*)\*([0-9]+)\*?$/u |
|
340
|
46 |
32 |
if $_ =~ /\*$/u |
|
346
|
24 |
8 |
if $encoded{$_} |
|
351
|
134 |
42 |
unless $_ =~ /^(.*)\*$/u |
|
353
|
0 |
42 |
unless defined $attribs->{$_} and $attribs->{$_} =~ /^$re_exvalue$/u |
|
356
|
30 |
12 |
if (length $charset) |
|
358
|
30 |
0 |
if (defined $enc) { } |
|
373
|
0 |
143 |
if length $_ and not $_ =~ /^;/u |
|
377
|
2 |
227 |
unless s/^;//u |
|
384
|
4 |
225 |
unless (length $_) |
|
389
|
0 |
4 |
if $STRICT_PARAMS |
|
394
|
224 |
1 |
if (s/^($re_token)=//u) { } |
|
397
|
0 |
1 |
if ($STRICT_PARAMS) |
|
401
|
0 |
1 |
if (s/^($re_token_non_strict)=//u) { } |
|
404
|
0 |
1 |
unless (s/^([^;=\s]+)\s*=//u) |
|
424
|
136 |
93 |
if (s/^($re_token)//u) { } |
|
|
93 |
0 |
elsif (s/^$re_quoted_string//u) { } |
|
|
0 |
0 |
elsif ($STRICT_PARAMS) { } |
|
|
0 |
0 |
elsif (s/^($re_token_non_strict)//u) { } |
|
|
0 |
0 |
elsif (s/^$re_quoted_string_non_strict//u) { } |
|
443
|
223 |
6 |
if not length $_ or /^;/u |
|
444
|
0 |
6 |
if ($STRICT_PARAMS) |
|
450
|
6 |
0 |
if ($erased) |
|
452
|
2 |
4 |
if /^$re_token_non_strict=/u |