| blib/lib/Time/Duration/Parse/More.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 0 | 70 | unless defined $expression |
| 32 | 0 | 70 | if exists $cache{$expression} |
| 35 | 5 | 58 | unless $cacheable |
| 43 | 0 | 70 | unless defined $expression |
| 46 | 5 | 65 | if ($expression eq 'midnight') |
| 70 | 4 | 118 | if ($e =~ s/^plus\b(\s*,?)*//) { } |
| 7 | 111 | elsif ($e =~ s/^minus\b(\s*,?)*//) { } | |
| 107 | 4 | elsif ($e =~ s/^(([-+]?\d+(?:[,.]\d*)?)\s*(\w+))(\s*,?)*// or $e =~ s/^(([-+]?[,.]\d+)\s*(\w+))(\s*,?)*//) { } | |
| 75 | 35 | 72 | unless length $u == 1 |
| 76 | 3 | 104 | unless exists $units{$u} |