Branch Coverage

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


line true false branch
157 1746 0 @_ == 1 ? :
197 8 0 if ($val =~ /^([^']*)'([^']*)'(.*)\z/s) { }
0 0 elsif ($val =~ /^([^']*)'([^']*)\z/s) { }
229 460 1220 unless defined $raw
235 0 1680 unless $raw =~ /\A$SPCZ($FIRST)$SPCZ/go
241 1669 870 unless $raw =~ /\G[^;]*(\;$SPCZ)+/go
242 11 859 unless $raw =~ /\G($PARAMNAME)\s*=\s*/go
244 0 859 unless $raw =~ /\G(?:$QUOTED_STRING|($ENCTOKEN)|($TOKEN)|($BADTOKEN))/g
246 486 373 if (defined $qstr)
250 0 859 if (defined $badtoken)
262 0 367 defined $badtoken ? :
6 367 defined $enctoken ? :
486 373 defined $qstr ? :
268 16 843 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 1669 5 unless ref $self
353 120 1670 if @_ > 2
370 104 0 defined $val ? :
388 80 53 unless $key =~ /^[a-z][a-z-_0-9]*$/
389 0 53 unless defined($val = $self->{$key})