| line |
true |
false |
branch |
|
190
|
131 |
206 |
if pos $encstr >= length $encstr |
|
194
|
66 |
140 |
if ($encstr =~ /\G # from where we left off..
=\?([^?]*) # "=?" + charset +
\?([bq]) # "?" + encoding +
\?([^?]+) # "?" + data maybe with spcs +
\?= # "?="
/gix) |
|
201
|
54 |
12 |
$encoding eq 'q' ? : |
|
209
|
4 |
136 |
if ($encstr =~ /\G=\?/gx) |
|
217
|
136 |
0 |
if ($encstr =~ /\G # from where we left off...
(.*? # shortest possible string,
\n*) # followed by 0 or more NLs,
(?=(\Z|=\?)) # terminated by "=?" or EOS
/gsx) |
|
222
|
0 |
136 |
unless length $1 |
|
231
|
95 |
36 |
wantarray ? : |
|
254
|
25 |
0 |
$encoding eq 'Q' ? : |
|
306
|
28 |
23 |
!($word =~ /(?:[$NONPRINT])|(?:^\s+$)/o) ? : |