| line |
true |
false |
branch |
|
265
|
1 |
2 |
if ($two_digit_year < 0)
|
|
397
|
2 |
1 |
$self->day_of_week == 0 || $self->day_of_week == 6 ? :
|
|
407
|
2 |
1 |
$self->is_a_weekend ? :
|
|
422
|
4 |
224633 |
if (not defined $params_ref) { }
|
|
|
1 |
224632 |
elsif (ref $params_ref eq 'Date::Utility') { }
|
|
|
47 |
224585 |
elsif (ref $params_ref eq 'HASH') { }
|
|
|
200417 |
24168 |
elsif ($params_ref =~ /$EPOCH_RE/) { }
|
|
427
|
1 |
46 |
if (not $params_ref->{'datetime'} || $params_ref->{'epoch'}) { }
|
|
|
1 |
45 |
elsif ($params_ref->{'datetime'} and $params_ref->{'epoch'}) { }
|
|
|
7 |
38 |
elsif ($params_ref->{'epoch'}) { }
|
|
447
|
200909 |
23711 |
unless ($obj)
|
|
485
|
0 |
24206 |
if ($datetime =~ /$sub_second/) { }
|
|
|
13 |
24193 |
elsif ($datetime =~ /$date_only/) { }
|
|
|
36 |
24157 |
elsif ($datetime =~ /$date_with_time/) { }
|
|
|
24074 |
83 |
elsif ($datetime =~ /$numeric_date_only/) { }
|
|
|
2 |
81 |
elsif ($datetime =~ /$numeric_date_only_dd_mm_yyyy/) { }
|
|
|
70 |
11 |
elsif ($datetime =~ /$fully_specced/) { }
|
|
|
1 |
10 |
elsif ($datetime =~ /$datetime_yyyymmdd_hhmmss_TZ/) { }
|
|
498
|
26 |
10 |
if (defined $6)
|
|
531
|
45 |
24151 |
if (length $year == 2)
|
|
532
|
1 |
44 |
if ($year > 30 and $year < 70)
|
|
536
|
35 |
9 |
$year <= 30 ? :
|
|
561
|
0 |
8 |
unless ($date)
|
|
576
|
0 |
5 |
unless ($date)
|
|
579
|
2 |
3 |
$self->{'epoch'} < $date->{'epoch'} ? :
|
|
591
|
0 |
5 |
unless ($date)
|
|
594
|
2 |
3 |
$self->{'epoch'} > $date->{'epoch'} ? :
|
|
606
|
0 |
13 |
unless ($date)
|
|
609
|
7 |
6 |
$self->{'epoch'} == $date->{'epoch'} ? :
|
|
792
|
5 |
17 |
if ($month == 2)
|
|
794
|
3 |
2 |
($year % 4 || !($year % 100)) && $year % 400 ? :
|
|
853
|
0 |
48 |
if ($tzname eq "UTC" or $tzname eq "Z")
|
|
860
|
48 |
38 |
if ($tm < $sp->[1])
|
|
871
|
0 |
200048 |
if ($tzname eq "UTC" or $tzname eq "Z")
|
|
878
|
200048 |
102983 |
if ($tm < $sp->[1])
|
|
918
|
429 |
0 |
unless (ref $ti)
|
|
919
|
4 |
425 |
if ($ti =~ s/([\d.]+)y//)
|
|
921
|
0 |
3 |
$ti ? :
|
|
923
|
18 |
407 |
if ($ti =~ s/([\d.]+)mo//i)
|
|
925
|
0 |
17 |
$ti ? :
|
|
934
|
2 |
404 |
$sec == 0 ? :
|
|
1088
|
3 |
3 |
defined $date && $date =~ /^\d{1,2}\-\w{3}-\d{2}$/ ? :
|
|
1105
|
0 |
5 |
if $rem == 0
|
|
1148
|
2 |
2 |
if (not $today_obj or $time > $today_ends_at or $time < $today_starts_at)
|
|
1179
|
1 |
7 |
unless &looks_like_number($years) and $years == int $years
|
|
1232
|
1 |
21 |
unless &looks_like_number($months) and $months == int $months
|
|
1235
|
5 |
16 |
if ($new_month < 1 or $new_month > 12)
|
|
1238
|
1 |
4 |
if ($new_month < 1)
|
|
1295
|
18 |
12 |
$day < $max_day ? :
|