Branch Coverage

blib/lib/Mail/Box/MH/Labels.pm
Criterion Covered Total %
branch 25 34 73.5


line true false branch
32 0 21 unless $self->{'MBML_filename'} = $args->{'filename'}
52 8 9 unless open my $seq, "<:raw", $seqfn
60 0 16 unless length $_
62 0 16 unless s/^\s*(\w+)\s*\:\s*//
66 1 15 if ($label eq 'cur') { }
2 13 elsif ($label eq 'unseen') { }
70 10 22 if (/^(\d+)\-(\d+)\s*$/) { }
22 0 elsif (/^\d+\s*$/) { }
89 0 11 unless (@_)
94 0 11 unless open my $out, ">:raw", $filename
98 0 11 unless close $out
109 0 1 unless open my $out, ">>:raw", $filename
113 0 1 unless close $out
130 10 300 unless $labels->{'seen'}
134 351 18 if $labels->{$_}
145 1 11 if $_ eq "current"
153 15 6 $start == $end ? :