Branch Coverage

blib/lib/Hex/Record.pm
Criterion Covered Total %
branch 68 68 100.0


line true false branch
12 13 5 unless exists $args{'parts'}
23 1 33 unless my($addr, $type, $bytes_str) = $line =~ / : # intel hex start [[:xdigit:]]{2} # bytecount ([[:xdigit:]]{4}) # addr ([[:xdigit:]]{2}) # type ([[:xdigit:]] * ) # databytes [[:xdigit:]]{2} # checksum /xi
35 24 9 if ($type == 0) { }
3 6 elsif ($type == 4) { }
3 3 elsif ($type == 2) { }
72 1 21 unless substr($line, 0, 1) =~ /s/i
78 1 19 unless my($addr, $bytes_str) = $line =~ / s #srec hex start [[:xdigit:]]{1} #type [[:xdigit:]]{2} #bytecount ([[:xdigit:]]{$addr_length}) #addr ([[:xdigit:]] * ) #databytes [[:xdigit:]]{2} #checksum /xi
88 6 1 if ($type == 1 or $type == 2 or $type == 3)
111 4 76 if ($create_part == 0 and $to == $start_addr) { }
20 56 elsif ($create_part == 0 and $from == $end_addr + 1) { }
4 52 elsif ($from < $start_addr) { }
119 17 3 if $part_i + 1 == @{$self->{'parts'};}
123 1 2 if ($to == $next_part->{'start'})
155 2 6 if $gap > 0
157 5 3 if ($overlap eq 'a') { }
1 2 elsif ($overlap eq 'l') { }
1 1 elsif ($overlap eq 'r') { }
186 22 11 if ($overlap eq 'a') { }
2 9 elsif ($overlap eq 'l') { }
7 2 elsif ($overlap eq 'r') { }
229 25 106 if ($from < $end_addr and $to > $start_addr)
230 14 11 if ($from <= $start_addr) { }
3 8 elsif ($to < $end_addr - 1) { }
231 2 12 if ($to < $end_addr - 1)
248 9 16 if $start_addr > $to
252 15 1 if ($to >= $end_addr) { }
282 3 9 if ($cur_high_addr_hex ne $addr_high_hex)
287 5 7 if (($slice_i + 1) * $bytes_hex_a_line <= $#{$$part{'bytes'};}) { }
325 1 14 if length $checksum_hex != 2
352 5 7 if (($slice_i + 1) * $bytes_hex_a_line <= $#{$$part{'bytes'};}) { }
377 5 7 if (length $total_addr_hex == 4) { }
4 3 elsif (length $total_addr_hex <= 6) { }
382 3 1 if length $total_addr_hex == 5
387 1 2 if length $total_addr_hex == 7