Branch Coverage

blib/lib/Mac/PropertyList/WriteBinary.pm
Criterion Covered Total %
branch 42 50 84.0


line true false branch
102 2 0 eval { do { 1 } } ? :
127 37 1 if ($xref_offset < 256) { }
1 0 elsif ($xref_offset < 65536) { }
167 24 58 if ($tp eq '')
168 2 22 if (not defined $value) { }
170 2 0 unless defined $context->{'nullid'}
174 15 7 unless exists $context->{'strings'}{$value}
182 4 54 if (exists $context->{'refs'}{$value})
184 1 3 unless defined $thisid
195 4 50 if ($tp eq 'ARRAY') { }
3 47 elsif ($tp eq 'HASH') { }
46 1 elsif (UNIVERSAL::can($tp, '_as_bplist_fragment')) { }
211 6 44 unless defined $fragment
219 8 36 if @objrefs
243 38 0 if ($ctxt->{'nextid'} < 256) { }
0 0 elsif ($ctxt->{'nextid'} < 65536) { }
275 9 3 if ($stringval =~ /\A[\x01-\x7E]*\z/s) { }
290 2 36 if defined $ctxt->{'nullid'}
304 25 3 if ($count < 15) { }
314 12 4 if ($count < 256) { }
3 1 elsif ($count < 65536) { }
0 1 elsif ($count > 4294967295) { }
357 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/) { }
399 2 13 if ($value < 0) { }