Branch Coverage

blib/lib/Mail/Exchange/NamedProperties.pm
Criterion Covered Total %
branch 9 22 40.9


line true false branch
45 0 0 if $guidlist[$guididx] eq $$str{'guid'}
48 0 0 if ($guididx == $#guidlist + 1)
53 0 0 if ($$str{'str'} =~ /^\d/) { }
69 0 0 if (length($strstream) % 4)
96 0 0 if ($nametoidstring[$i])
114 0 0 unless $str =~ /^([0-9a-f]{8})-([0-9a-f]{4})-([0-9a-f]{4})-([0-9a-f]{4})-([0-9a-f]{12})$/i
163 54 4 if ($str =~ /^\d/ and $str >= 32768 and $Mail::Exchange::NamedProperties::PidLidDefs{$str})
164 25 29 unless defined $type
165 29 25 unless defined $guid
168 6 29 if ($$self{'namedprops'}[$i]{'str'} eq $str and !$type || $$self{'namedprops'}[$i]{'type'} == $type and !$guid || $$self{'namedprops'}[$i]{'guid'} eq $guid)
174 0 52 unless $guid