Branch Coverage

blib/lib/MIME/Field/ParamVal.pm
Criterion Covered Total %
branch 34 46 73.9


line true false branch
157 1664 0 @_ == 1 ? :
197 8 0 if ($val =~ /^([^']*)'([^']*)'(.*)\z/s) { }
0 0 elsif ($val =~ /^([^']*)'([^']*)\z/s) { }
229 455 1159 unless defined $raw
235 0 1614 unless $raw =~ /\A$SPCZ($FIRST)$SPCZ/go
241 1603 832 unless $raw =~ /\G[^;]*(\;$SPCZ)+/go
242 11 821 unless $raw =~ /\G($PARAMNAME)\s*=\s*/go
244 0 821 unless $raw =~ /\G(?:$QUOTED_STRING|($ENCTOKEN)|($TOKEN)|($BADTOKEN))/g
246 467 354 if (defined $qstr)
250 0 821 if (defined $badtoken)
262 0 348 defined $badtoken ? :
6 348 defined $enctoken ? :
467 354 defined $qstr ? :
268 16 805 if ($param =~ /\*/ and $param =~ /^ ([^*]+) (?: \* ([^*]+) )? (\*)? \z/sx) { }
272 8 8 if (defined $3)
298 8 4 if ($rfc2231encoding_is_used{$param})
300 8 0 if (defined $enc)
306 0 8 if defined $lang and $lang ne ''
333 1603 5 unless ref $self
353 100 1606 if @_ > 2
370 88 0 defined $val ? :
388 62 50 unless $key =~ /^[a-z][a-z-_0-9]*$/
389 0 50 unless defined($val = $self->{$key})