Branch Coverage

blib/lib/Net/SAP/Packet.pm
Criterion Covered Total %
branch 38 86 44.1


line true false branch
46 1 1 if (defined $packet_data)
50 0 1 if $res
65 0 1 if (length $data < 10)
81 0 1 if ($$self{'v'} != 0 and $$self{'v'} != 1)
93 1 0 if ($$self{'a'} == 0) { }
103 0 1 if ($$self{'auth_len'})
113 1 0 if ($$self{'c'})
115 0 1 if (not defined $inf) { }
120 0 1 unless (defined $payload)
129 0 1 if ($payload =~ /^v=\d+/) { }
134 0 1 if ($index == -1) { }
155 45 51 if ($crc & 32768) { }
188 0 1 if ($self->origin_address eq '')
190 0 0 if ($self->origin_address eq '')
197 1 0 if ($$self{'a'} == 0) { }
214 1 0 if ($$self{'c'})
216 0 1 if (not defined $def) { }
221 0 1 unless (defined $payload)
248 0 0 if $if->is_loopback
249 0 0 unless _addr_is_public($addr)
269 0 0 unless defined $addr
271 0 0 unless defined $a
274 0 0 if $a == 10
277 0 0 if $a == 172 and $b == 16 and $c <= 31 and $c >= 16
280 0 0 if $a == 192 and $b == 168
283 0 0 if $a == 169 and $b == 254
286 0 0 if $a == 127
289 0 0 if $a == 0
292 0 0 if $a == 1
303 1 1 if (defined $value)
304 0 1 if ($value =~ /ip6|ipv6/i) { }
1 0 elsif ($value =~ /ip4|ipv4/i) { }
314 0 2 if ($$self{'a'}) { }
323 1 2 if (defined $value)
336 1 1 if (defined $value)
337 1 0 if ($value =~ /1|yes|true/i) { }
0 0 elsif ($value =~ /0|no|false/i) { }
354 1 1 if (defined $value)
355 0 1 if ($value =~ /advert/i) { }
1 0 elsif ($value =~ /delet/i) { }
365 0 2 if ($$self{'t'} == 0) { }
398 1 1 if (defined $value)
410 1 1 if (defined $value)