Branch Coverage

blib/lib/Mail/Box/Message/Destructed.pm
Criterion Covered Total %
branch 6 18 33.3


line true false branch
32 0 0 if @_ and not defined shift()
41 0 0 if @_ and not defined shift()
51 0 55 unless ($message->isa("Mail::Box::Message"))
66 0 0 if @_ and $_[0]
78 12 1 if (@_ == 1)
80 12 0 if $label eq "deleted"
86 0 1 unless (keys %flags == 1 and exists $flags{'deleted'})
92 0 1 unless $flags{'deleted'}
97 0 0 wantarray ? :