| blib/lib/App/TimelogTxt/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 22 | 77.2 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 1 | 2 | unless $stamp |
| 73 | 0 | 1 | unless defined $stamp |
| 80 | 0 | 2 | unless is_datestamp($stamp) |
| 82 | 0 | 2 | unless @date == 3 |
| 98 | 2 | 17 | if is_today($day) |
| 101 | 1 | 16 | if is_datestamp($day) |
| 104 | 0 | 16 | unless grep {$day eq $_;} $YESTERDAY, @DAYS |
| 108 | 2 | 14 | if ($day eq $YESTERDAY) { } |
| 115 | 0 | 14 | if $index < 0 |
| 118 | 6 | 8 | if $delta < 1 |
| 130 | 28 | 84 | if $try eq $day |