Branch Coverage

blib/lib/Messaging/Message.pm
Criterion Covered Total %
branch 97 116 83.6


line true false branch
62 13 4 if $_LoadedModule{$module}
64 0 4 if ($@) { }
83 177 3 unless $@
95 0 15 unless $object->{'body'} =~ /[^\t\n\r\x20-\x7e]/
110 2 1 if $tmp eq $object->{'body'}
164 147 77 if @_
166 1 20 if exists $option{'body'} and exists $option{'body_ref'}
171 118 102 if exists $option{'header'}
172 121 99 if exists $option{'body_ref'}
173 20 200 if exists $option{'body'}
174 62 72 $option{'text'} ? :
134 86 if exists $option{'text'}
188 58 0 if @_ == 0
198 1 1 if @_ == 0
199 0 1 unless @_ == 1 and defined $_[0] and ref $_[0] eq "SCALAR"
209 73 1 if @_ == 0
210 0 1 unless @_ == 1 and !defined($_[0]) || ref $_[0] eq ''
212 0 1 $_[0] ? :
224 80 2 if (@_ >= 1 and defined $_[0] and ref $_[0] eq "")
225 78 2 if @_ == 1
226 1 1 if (@_ == 2 and defined $_[1] and ref $_[1] eq "")
239 49 1 if @_ == 0
240 0 1 unless @_ == 1 and defined $_[0] and ref $_[0] eq ""
255 0 7 if @_
271 0 0 if @_
300 0 10 if ($algo and $force) { }
3 7 elsif ($algo and $len > 255) { }
310 0 3 if (length $object->{'body'} >= $len)
323 0 12 if ($algo and $force) { }
3 9 elsif ($algo and $len > 255) { }
329 1 2 if $object->{'body'} =~ /[^\t\n\r\x20-\x7e]/
332 0 3 if (length $object->{'body'} >= $len)
348 6 32 if @_
349 6 32 if ($option{'compression'} and $option{'compression'} =~ /^(\w+)(!?)$/)
353 6 32 if $algo
355 10 28 if $self->{'text'}
356 9 29 if keys %{$$self{"header"};}
358 16 22 unless $len
361 10 12 if ($self->{'text'}) { }
370 15 7 if $object{'encoding'}
402 1 73 unless @_ == 1 and defined $_[0] and ref $_[0] eq "HASH"
407 1 69 unless $encoding eq "" or "$encoding+" =~ /^((base64|utf8|$_CompressionAlgos)\+)+$/o
410 9 60 if $encoding =~ /($_CompressionAlgos)/o
414 16 53 if $object->{'text'}
416 34 35 if $object->{'header'} and keys %{$$object{"header"};}
417 57 12 if (exists $object->{'body'})
419 26 31 if ($encoding =~ /base64/)
423 1 25 if $len % 4
429 2 23 unless $len == length $tmp
432 9 45 if ($encoding =~ /($_CompressionAlgos)/o)
438 0 9 unless defined $tmp
441 4 50 if ($encoding =~ /utf8/)
493 0 36 unless @_ == 1 and defined $_[0] and ref $_[0] eq ""
505 0 33 unless @_ == 1 and defined $_[0] and ref $_[0] eq "SCALAR"
553 0 28 unless @_ == 1 and defined $_[0] and ref $_[0] eq ""
555 24 4 unless $_[0] =~ /[^[:ascii:]]/
566 0 35 unless @_ == 1 and defined $_[0] and ref $_[0] eq "SCALAR"
568 33 2 unless ${$_[0];} =~ /[^[:ascii:]]/