Branch Coverage

blib/lib/Data/Radius/Packet.pm
Criterion Covered Total %
branch 44 92 47.8


line true false branch
71 0 2 if ($h{'secret'})
74 0 2 unless defined $self->secret
79 0 2 if ($self->is_reply($type) and not $h{'authenticator'})
85 2 0 if ($type == 1)
94 1 4 if ($av->{'Name'} eq 'Message-Authenticator' and not $av->{'Value'})
101 0 4 unless $bin
115 2 0 if ($with_msg_auth)
121 2 0 if ($type == 1) { }
0 0 elsif ($self->is_request($type)) { }
150 0 2 unless ($authenticator)
152 0 0 $self->is_request($type) ? :
161 0 2 unless $authenticator
185 2 5 if ($av->{'Id'}) { }
186 0 2 unless ($av->{'Type'})
202 0 5 unless ($dict)
208 0 5 if ($av->{'Name'} =~ /^([\w-]+):(\d+)$/)
213 0 5 unless ($attr)
218 0 5 if (defined $av->{'Tag'} and not $attr->{'has_tag'})
223 0 5 if ($attr->{'has_tag'} and not defined $av->{'Tag'})
232 0 7 if (defined $av->{'Tag'})
234 0 0 if ($tag < 1 or $tag > 31)
241 0 7 unless (defined $value)
246 2 5 if ($attr->{'id'} == 2 and not $vendor_id)
251 0 7 if ($attr->{'type'} ne 'tlv' and is_enum_type($attr->{'type'}) and $dict)
257 0 7 $attr->{'has_tag'} ? :
259 0 7 unless (defined $encoded)
266 5 2 unless ($vendor_id)
274 1 1 if ($vendor_id == 24757) { }
296 1 0 if ($type == 1) { }
301 0 0 if ($self->is_request($type)) { }
306 0 0 unless ($orig_auth)
319 0 0 if ($auth ne $expected_auth)
338 0 3 if ($attr_id == 26) { }
342 0 0 if ($vendor_id == 24757)
346 0 0 if $wimax_cont
350 0 0 if ($dict)
358 3 0 if ($dict)
365 1 2 if ($attr_id == 80 and not $vendor)
366 0 1 if $attr_len != 18
375 0 3 unless ($attr)
388 0 3 if (is_enum_type($attr->{'type'}))
394 1 2 if ($type == 1 and $attr->{'id'} == 2 and not $attr->{'vendor'})
407 1 0 if ($msg_auth)
410 0 1 if ($self->is_reply($type)) { }
1 0 elsif ($type == 1) { }
431 0 1 if ($msg_auth ne $exp_msg_auth)