| line |
!l |
l&&!r |
l&&r |
condition |
|
144
|
4 |
4 |
12 |
$buf =~ /^(?: # nothing left over
| [\xC2-\xDF] # incomplete 2-byte char
| [\xE0-\xEF] [\x80-\xBF]? # incomplete 3-byte char
| [\xF0-\xF4] [\x80-\xBF]{0,2} # incomplete 4-byte char
)\z/x and $test =~ /[^\x00-\x7F]/ |
|
153
|
8 |
48 |
0 |
defined $encoding and $options->{'encoding'} |
|
|
30 |
9 |
9 |
defined $encoding and $options->{'encoding'} and not ref $encoding |
|
172
|
3 |
66 |
0 |
/\G[\x09\x0A\x0C\x0D ]*=[\x09\x0A\x0C\x0D ]*/cg and /\G"([^"]*)"?/cg || /\G'([^']*)'?/cg || /\G([^\x09\x0A\x0C\x0D >]*)/cg |
|
216
|
52 |
10 |
5 |
$name eq 'http-equiv' and $value eq 'content-type' |
|
|
43 |
0 |
19 |
$name eq 'content' and not defined $charset |
|
227
|
1 |
44 |
0 |
defined $need_pragma and !$need_pragma || $got_pragma |