Branch Coverage

blib/lib/MIME/Words.pm
Criterion Covered Total %
branch 15 18 83.3


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) ? :