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) { }
69 1 21 unless substr($line, 0, 1) =~ /s/i
75 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
85 6 1 if ($type == 1 or $type == 2 or $type == 3)
107 4 76 if ($to == $start_addr) { }
20 56 elsif ($from == $end_addr + 1) { }
4 52 elsif ($from < $start_addr) { }
115 17 3 if $part_i + 1 == @{$self->{'parts'};}
119 1 2 if ($to == $next_part->{'start'})
151 2 6 if $gap > 0
153 5 3 if ($overlap eq 'a') { }
1 2 elsif ($overlap eq 'l') { }
1 1 elsif ($overlap eq 'r') { }
182 22 11 if ($overlap eq 'a') { }
2 9 elsif ($overlap eq 'l') { }
7 2 elsif ($overlap eq 'r') { }
225 25 106 if ($from < $end_addr and $to > $start_addr)
226 14 11 if ($from <= $start_addr) { }
3 8 elsif ($to < $end_addr - 1) { }
227 2 12 if ($to < $end_addr - 1)
244 9 16 if $start_addr > $to
248 15 1 if ($to >= $end_addr) { }
278 3 9 if ($cur_high_addr_hex ne $addr_high_hex)
283 5 7 if (($slice_i + 1) * $bytes_hex_a_line <= $#{$$part{'bytes'};}) { }
321 1 14 if length $checksum_hex != 2
348 5 7 if (($slice_i + 1) * $bytes_hex_a_line <= $#{$$part{'bytes'};}) { }
373 5 7 if (length $total_addr_hex == 4) { }
4 3 elsif (length $total_addr_hex <= 6) { }
378 3 1 if length $total_addr_hex == 5
383 1 2 if length $total_addr_hex == 7