| blib/lib/OpenID/Lite/Nonce.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 18 | 88.8 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 3 | 7 | unless defined $t |
| 27 | 3 | 27 | if length $timestamp < $pos |
| 28 | 3 | 24 | unless $timestamp =~ /^(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})Z$/ |
| 31 | 1 | 23 | if ($@) |
| 38 | 4 | 23 | if $new_skew |
| 44 | 0 | 8 | unless defined $allowed_skew |
| 45 | 0 | 8 | unless defined $now |
| 46 | 1 | 7 | unless my($stamp, $foo) = $class->split_nonce($nonce_str) |
| 50 | 4 | 3 | $past <= $stamp && $stamp <= $future ? : |