blib/lib/Time/Interval.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 13 | 29 | 44.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
34 | 0 | 0 | 1 | $date1 and $date2 |
115 | 5 | 0 | 5 | $p{'Small'} and $p{'Small'} != 0 |
1 | 0 | 4 | $p{'String'} and $p{'String'} != 0 | |
175 | 5 | 0 | 5 | ref $a eq 'ARRAY' and ref $b eq 'ARRAY' |
178 | 0 | 0 | 5 | $Time::Interval::b->[0] >= $Time::Interval::a->[0] and $Time::Interval::b->[0] <= $Time::Interval::a->[1] |
0 | 0 | 0 | $Time::Interval::a->[0] >= $Time::Interval::b->[0] and $Time::Interval::a->[0] <= $Time::Interval::b->[1] |
line | l | !l | condition |
---|---|---|---|
33 | 0 | 1 | shift() || '' |
123 | 5 | 0 | join(' ', @temp) || '0s' |
136 | 4 | 0 | join(', ', @temp) || '0 seconds' |
148 | 1 | 0 | shift() || [] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
40 | 2 | 0 | 0 | Date::Parse::str2time($_) || do { warn "failed to parse date: $!\n"; return undef } |