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