blib/lib/Auth/GoogleAuth.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 17 | 26 | 65.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
81 | 0 | 0 | 5 | $range =~ /^\d+$/ and $range >= 0 |
84 | 4 | 4 | 1 | not $_ and $code eq $self->code($secret32, $timestamp, $interval) |
line | l | !l | condition |
---|---|---|---|
59 | 22 | 3 | $interval ||= 30 |
76 | 5 | 0 | $code ||= '' |
77 | 3 | 2 | $range ||= 0 |
79 | 0 | 5 | $interval ||= 30 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
58 | 25 | 0 | 0 | $timestamp ||= time |
78 | 5 | 0 | 0 | $timestamp ||= time |
84 | 1 | 0 | 8 | not $_ and $code eq $self->code($secret32, $timestamp, $interval) or $code eq $self->code($secret32, $timestamp + $interval * $_, $interval) |
1 | 2 | 6 | 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) |