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} |