Branch Coverage

blib/lib/Mail/DKIM/KeyValueList.pm
Criterion Covered Total %
branch 31 36 86.1


line true false branch
26 0 1270 unless @_ == 1
29 3 1267 ref $self_or_class ? :
40 26 8384 if $raw_tag eq ""
43 5 8379 unless (defined $value)
66 17766 7856 if ($self->{'tags_by_name'}{$tagname})
76 0 6051 if ($tagname =~ /[;=\015\012\t ]/)
80 2738 3313 if (defined $value) { }
81 0 2738 if ($value =~ /;/)
84 0 2738 if ($value =~ /\015\012[^\t ]/)
88 369 2369 if ($self->{'tags_by_name'}{$tagname}) { }
105 0 3313 if ($self->{'tags_by_name'}{$tagname})
114 96 843 if ($Mail::DKIM::SORTTAGS)
131 126 3 unless UNIVERSAL::can($TEXTWRAP_CLASS, "new")
147 17 3 $did_first ? :
150 6 14 unless ($args{'PreserveNames'})
157 3 17 if ($tagtype eq 'b64') { }
1 16 elsif ($tagtype eq 'list') { }
4 12 elsif ($tagtype eq '') { }