| blib/lib/Net/SIP/Authorize.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 9 | 29 | 31.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 140 | 5 | 0 | 0 | $algo and lc $algo ne 'md5' |
| 5 | 0 | 0 | $qop and $qop ne 'auth' | |
| 157 | 0 | 0 | 5 | not defined $a1_hex and ref $user2pass |
| 202 | 5 | 0 | 0 | $self->{'filter'} and my $or = $self->{'filter'}{$method} |
| line | l | !l | condition |
|---|---|---|---|
| 45 | 0 | 1 | $args{'realm'} || 'p5-net-sip' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 48 | 1 | 0 | 0 | $args{'user2pass'} or $args{'user2a1'} |
| 53 | 1 | 0 | 0 | $args{'dispatcher'} || croak('no dispatcher') |
| 71 | 0 | 0 | 0 | UNIVERSAL::can($pkg, 'verify') || do { eval "require $pkg"; UNIVERSAL::can($pkg, 'verify') } |
| 140 | 0 | 0 | 5 | lc $data ne 'digest' or $algo and lc $algo ne 'md5' |
| 0 | 0 | 5 | lc $data ne 'digest' or $algo and lc $algo ne 'md5' or $qop and $qop ne 'auth' |