Branch Coverage

blib/lib/Mac/PropertyList/WriteBinary.pm
Criterion Covered Total %
branch 43 50 86.0


line true false branch
102 4 0 eval { do { !0 } } ? :
127 46 1 if ($xref_offset < 256) { }
1 0 elsif ($xref_offset < 65536) { }
167 31 89 if ($tp eq "")
168 2 29 if (not defined $value) { }
170 2 0 unless defined $context->{'nullid'}
174 22 7 unless exists $context->{'strings'}{$value}
182 4 85 if (exists $context->{'refs'}{$value})
184 1 3 unless defined $thisid
195 4 81 if ($tp eq 'ARRAY') { }
3 78 elsif ($tp eq 'HASH') { }
77 1 elsif (UNIVERSAL::can($tp, '_as_bplist_fragment')) { }
211 6 75 unless defined $fragment
219 11 64 if @objrefs
243 47 0 if ($ctxt->{'nextid'} < 256) { }
0 0 elsif ($ctxt->{'nextid'} < 65536) { }
275 16 3 if ($stringval =~ /\A[\x01-\x7E]*\z/s) { }
290 2 45 if defined $ctxt->{'nullid'}
304 32 6 if ($count < 15) { }
324 18 17 if ($count < 256) { }
5 12 elsif ($count <= 65535) { }
4 8 elsif ($count <= 4294967295) { }
376 1 3 if (&looks_like_number($value)) { }
3 0 elsif ($value =~ /\A(\d\d\d\d)-(\d\d)-(\d\d)T(\d\d)\:(\d\d)\:(\d\d(?:\.\d+)?)Z\z/) { }
418 14 29 $value < 0 ? :