| blib/lib/Devel/Deprecations/Environmental/MicroDateTime.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 39 | if $swap |
| 31 | 0 | 18 | if $year < 1970 |
| 36 | 26 | 98 | if $class->_is_leap($this_year) |
| 37 | 106 | 18 | $this_year < $year ? : |
| 47 | 122 | 2 | unless $year % 400 == 0 |
| 53 | 124 | 1274 | !@tail ? : |
| 59 | 18 | 1 | if ($dt_string =~ /^ (\d{4}) - (\d{2}) - (\d{2}) (?: (?: T | \x20 # T or literal space ) (\d{2}) : (\d{2}) : (\d{2}) )? $/x) |