| blib/lib/Data/Radius/Packet.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 36 | 63 | 57.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 94 | 7 | 0 | 0 | $self->is_reply($type) and not $h{'authenticator'} |
| 133 | 13 | 0 | 2 | $av->{'Name'} eq "Message-Authenticator" and not $av->{'Value'} |
| 276 | 13 | 0 | 3 | $attr->{'id'} == 2 and not $vendor_id |
| 281 | 0 | 11 | 5 | $attr->{'type'} ne "tlv" and is_enum_type($attr->{'type'}) |
| 11 | 1 | 4 | $attr->{'type'} ne "tlv" and is_enum_type($attr->{'type'}) and $dict | |
| 390 | 11 | 0 | 2 | $attr_id == 80 and not $vendor |
| 419 | 5 | 6 | 2 | $type == 1 and $attr->{'id'} == 2 |
| 11 | 0 | 2 | $type == 1 and $attr->{'id'} == 2 and not $attr->{'vendor'} |
| line | l | !l | condition |
|---|---|---|---|
| 110 | 4 | 1 | $h{'with_msg_auth'} // 1 |
| 475 | 0 | 9 | $IS_REPLY{$type} // 0 |
| 480 | 9 | 0 | $IS_REQUEST{$type} // 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 79 | 0 | 7 | 0 | $h{'RaiseError'} //= $Data::Radius::Encode::RaiseError |
| 80 | 0 | 7 | 0 | $h{'PrintError'} //= $Data::Radius::Encode::PrintError |
| 87 | 0 | 7 | 0 | $h{'dict'} // $self->dict |
| 117 | 3 | 0 | 0 | $h{'authenticator'} // pack("L4", map({int rand 4294967295;} 0..3)) |
| 172 | 5 | 2 | 0 | $h{'request_id'} // $request_id++ & 255 |
| 211 | 2 | 2 | 0 | $md5 //= "Digest::MD5"->new |
| 270 | 0 | 0 | 3 | $av->{'Tag'} < 1 or $av->{'Tag'} > 31 |
| 283 | 3 | 1 | 0 | $dict->value($attr->{'name'}, $value) // $value |
| 338 | 4 | 0 | 0 | $md5 //= "Digest::MD5"->new |
| 376 | 1 | 0 | 0 | $dict->vendor_name($vendor_id) // $vendor_id |
| 415 | 3 | 1 | 0 | $dict->constant($attr->{'name'}, $decoded) // $decoded |