| line |
true |
false |
branch |
|
189
|
50 |
100 |
if pos $encstr >= length $encstr |
|
193
|
64 |
36 |
if ($encstr =~ /\G # from where we left off..
=\?([^?]*) # "=?" + charset +
\?([bq]) # "?" + encoding +
\?([^?]+) # "?" + data maybe with spcs +
\?= # "?="
/gix) |
|
200
|
34 |
30 |
$encoding eq 'q' ? : |
|
208
|
0 |
36 |
if ($encstr =~ /\G=\?/gx) |
|
216
|
36 |
0 |
if ($encstr =~ /\G # from where we left off...
([\x00-\xFF]*? # shortest possible string,
\n*) # followed by 0 or more NLs,
(?=(\Z|=\?)) # terminated by "=?" or EOS
/gx) |
|
221
|
0 |
36 |
unless length $1 |
|
226
|
0 |
0 |
if ($encstr =~ /\G([\x00-\xFF]*)[^\x00-\xFF]+/g) |
|
228
|
0 |
0 |
if 0 != length $1 |
|
236
|
50 |
0 |
wantarray ? : |