Branch Coverage

blib/lib/Palm/BlockPack.pm
Criterion Covered Total %
branch 1 144 0.6


line true false branch
44 0 0 if ref $str
50 0 0 if (ord $char < 32) { }
52 0 0 if (ord $char == 10) { }
75 0 0 ref $ref eq 'ARRAY' ? :
80 0 0 if $elt <= 0
82 0 0 if ($size == 2) { }
92 0 0 if (ref $ref ne 'ARRAY')
103 0 8 if @_ % 2
119 0 0 if ($type eq 'skip') { }
0 0 elsif ($type =~ /^UInt(?:8|16|32)\z/) { }
0 0 elsif ($type eq 'DateType') { }
0 0 elsif ($type eq 'TimeType') { }
129 0 0 if (ref $field) { }
0 0 elsif ($delete_noinit) { }
148 0 0 if (ref $value) { }
0 0 elsif ($delete_noinit) { }
151 0 0 if (@$value == 2) { }
153 0 0 if ($$value[1] eq 'now') { }
185 0 0 if (ref $value) { }
0 0 elsif ($delete_noinit) { }
188 0 0 if (@$value == 2) { }
190 0 0 if ($$value[1] eq 'now') { }
218 0 0 if (ref $value) { }
0 0 elsif ($delete_noinit) { }
221 0 0 if ($type =~ /^\[(?:-?[Nn]|[Cc])[1-9]\d*\]\z/) { }
265 0 0 if ($type eq 'skip') { }
0 0 elsif ($type =~ /^UInt(?:8|16|32)\z/) { }
269 0 0 if (ref $value) { }
284 0 0 ref $_ ? :
290 0 0 ref $value ? :
293 0 0 if ($type =~ /^(?:Date|Time)Type\z/) { }
0 0 elsif ($type =~ /^\[((?:-?[Nn]|[Cc])([1-9]\d*))\]\z/) { }
306 0 0 if (@$ref_list < $num)
317 0 0 unless (defined $field_value)
319 0 0 if ($type =~ /^(?:-?[Nn]|[Cc])\z/ or exists $SPECIAL_TYPES{$type}) { }
0 0 elsif ($type =~ /^Z(\*|\d+)\z/) { }
335 0 0 if (exists $SPECIAL_TYPES{$type}) { }
358 0 0 unless defined $ref_hash
360 0 0 ref $pack ? :
368 0 0 if ($type eq 'skip') { }
0 0 elsif ($type =~ /^UInt(8|16|32)\z/) { }
370 0 0 ref $value ? :
372 0 0 if (length $$ref_pack < $size) { }
374 0 0 if ($VERBOSE and not $no_nonempty_alert)
393 0 0 if (length $$ref_pack < $size) { }
395 0 0 if ($VERBOSE and not $no_nonempty_alert)
408 0 0 ref $_ ? :
416 0 0 ref $value ? :
419 0 0 if ($type =~ /^(?:Date|Time)Type\z/) { }
0 0 elsif (exists $SPECIAL_TYPES{$type}) { }
0 0 elsif ($type =~ /^\[((-?[Nn]|[Cc])([1-9]\d*))\]\z/) { }
421 0 0 if (length $$ref_pack < 2) { }
423 0 0 if ($VERBOSE and not $no_nonempty_alert)
443 0 0 if (length $$ref_pack < $SPECIAL_TYPES{$type}[2]) { }
445 0 0 if ($VERBOSE and not $no_nonempty_alert)
467 0 0 if (substr($pack_type, 0, 1) eq '-')
475 0 0 if ($pack_one eq 'N') { }
0 0 elsif ($pack_one eq 'n') { }
488 0 0 if (length $$ref_pack < $size * $num) { }
490 0 0 if ($VERBOSE and not $no_nonempty_alert)
507 0 0 if $neg
517 0 0 if ($type =~ s/^(-?)N\z/N/) { }
0 0 elsif ($type =~ s/^(-?)n\z/n/) { }
0 0 elsif ($type =~ /^[Cc]\z/) { }
0 0 elsif ($type =~ /^Z(\*|\d+)\z/) { }
533 0 0 if ($1 eq '*') { }
548 0 0 if (length $$ref_pack < $min_size) { }
550 0 0 if ($VERBOSE and not $no_nonempty_alert)
562 0 0 if (defined $size) { }
568 0 0 if $neg
584 0 0 if $out_of_data
587 0 0 if ($VERBOSE and not $no_nonempty_alert and length $$ref_pack > 0)