| line |
true |
false |
branch |
|
47
|
8 |
8 |
ref $_ eq 'Date::Range' ? : |
|
60
|
6 |
6 |
unless wantarray |
|
64
|
8 |
8 |
ref $_ eq 'Date::Range' ? : |
|
84
|
6 |
6 |
unless wantarray |
|
87
|
8 |
8 |
ref $_ eq 'Date::Simple' ? : |
|
114
|
6 |
75 |
if (wantarray) { } |
|
139
|
16 |
16 |
ref $_ eq 'Date::Simple' ? : |
|
229
|
4 |
199 |
if ($separator and $item =~ /$separator/) |
|
234
|
2 |
197 |
if $item and not $item =~ /$pattern/ |
|
238
|
4 |
193 |
if ($item =~ m[ ($pattern) / ($pattern) ]msx) { } |
|
|
193 |
0 |
elsif ($item =~ /\A ( $pattern ) \z/msx) { } |
|
243
|
0 |
4 |
if ($first =~ YYYYMM() or $last =~ YYYYMM()) |
|
245
|
0 |
0 |
unless $first =~ YYYYMM() and $last =~ YYYYMM() |
|
259
|
0 |
4 |
if $@ |
|
260
|
0 |
4 |
unless defined $date1 |
|
261
|
0 |
4 |
unless defined $date2 |
|
262
|
0 |
4 |
if $date1 > $date2 |
|
267
|
0 |
4 |
if $@ or not defined $range |
|
280
|
0 |
193 |
if $date =~ YYYYMM() |
|
284
|
2 |
191 |
if $@ or not defined $d |
|
312
|
199 |
220 |
ref $_ eq 'Date::Range' ? : |
|
329
|
0 |
6 |
unless wantarray |
|
332
|
8 |
8 |
ref $_ eq 'Date::Range' ? : |
|
345
|
0 |
6 |
unless wantarray |
|
348
|
3 |
4 |
ref $_ eq 'Date::Range' ? : |
|
364
|
0 |
6 |
unless wantarray |
|
373
|
0 |
76 |
if $@ |
|
376
|
6 |
70 |
unless (defined $first) |
|
383
|
60 |
10 |
if ($self->_next_in_range($last, $item)) |
|
390
|
2 |
8 |
unless ($self->_equal_value($first, $last)) |
|
398
|
0 |
0 |
if $@ |
|
408
|
0 |
6 |
if ($first eq $last) { } |
|
415
|
0 |
6 |
if $@ |
|
431
|
10 |
0 |
if (ref $first eq 'Date::Simple' and ref $last eq 'Date::Simple') { } |
|
|
0 |
0 |
elsif (ref $first eq 'Date::Range' and ref $last eq 'Date::Simple') { } |
|
|
0 |
0 |
elsif (ref $first eq 'Date::Simple' and ref $last eq 'Date::Range') { } |
|
|
0 |
0 |
elsif (ref $first eq 'Date::Range' and ref $last eq 'Date::Range') { } |
|
463
|
70 |
0 |
if (ref $first eq 'Date::Simple' and ref $last eq 'Date::Simple') |
|
468
|
0 |
0 |
if (ref $first eq 'Date::Simple' and ref $last eq 'Date::Range') |
|
473
|
0 |
0 |
if (ref $first eq 'Date::Range' and ref $last eq 'Date::Simple') |
|
478
|
0 |
0 |
if (ref $first eq 'Date::Range' and ref $last eq 'Date::Range') |