| blib/lib/Auth/GoogleAuth.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 22 | 86.3 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 2 | 4 | if defined $key_id |
| 39 | 2 | 4 | if defined $issuer |
| 41 | 1 | 5 | unless $self->key_id |
| 42 | 1 | 5 | unless $self->issuer |
| 53 | 1 | 2 | $return_otpauth ? : |
| 85 | 0 | 5 | unless $range =~ /^\d+$/ and $range >= 0 |
| 88 | 2 | 6 | if not $_ and $code eq $self->code($secret32, $timestamp, $interval) or $code eq $self->code($secret32, $timestamp + $interval * $_, $interval) or $code eq $self->code($secret32, $timestamp - $interval * $_, $interval) |
| 103 | 30 | 6 | if ($secret32) |
| 108 | 1 | 35 | unless ($self->secret32) |
| 109 | 1 | 0 | if (not $self->secret) { } |
| 124 | 0 | 56 | if $@ =~ /Data contains non-base32 characters/ |