| line |
true |
false |
branch |
|
85
|
0 |
40 |
unless tie %tiehash, $class . '::Tie', $time, %opts |
|
159
|
0 |
1 |
unless (defined $level) |
|
167
|
0 |
1 |
if ($level eq 'none') { } |
|
|
0 |
1 |
elsif ($level eq 'stderr') { } |
|
|
1 |
0 |
elsif ($level eq 'croak') { } |
|
|
0 |
0 |
elsif ($level eq 'default') { } |
|
325
|
16 |
24 |
if (UNIVERSAL::isa($time, 'Date::EzDate2')) { } |
|
337
|
23 |
0 |
if (defined $time and not ref $time and $time =~ /\S/s) |
|
360
|
16 |
0 |
if (UNIVERSAL::isa($old, 'Date::EzDate2')) |
|
396
|
0 |
98 |
unless (defined $val) |
|
405
|
0 |
98 |
if $val =~ /$left_brace_rx/ |
|
427
|
17 |
81 |
if ($key eq 'dayofmonth') { } |
|
|
17 |
64 |
elsif ($key eq 'year') { } |
|
|
21 |
43 |
elsif ($key eq 'month' or $key eq 'monthnum' or $key eq 'monthlong' or $key eq 'monthshort') { } |
|
|
6 |
37 |
elsif ($key eq 'weekday' or $key eq 'weekdaynum' or $key eq 'weekdayshort' or $key eq 'weekdaylong') { } |
|
|
3 |
34 |
elsif ($key eq 'yearday' or $key eq 'yearday3d') { } |
|
|
3 |
31 |
elsif ($key eq 'hour' or $key eq 'hour2d') { } |
|
|
3 |
28 |
elsif ($key eq 'min' or $key eq 'min2d') { } |
|
|
3 |
25 |
elsif ($key eq 'sec' or $key eq 'sec2d') { } |
|
|
20 |
5 |
elsif ($key eq 'ampm' or $key eq 'ampmlc' or $key eq 'ampmuc') { } |
|
|
2 |
3 |
elsif ($key eq 'ampmhour') { } |
|
|
2 |
1 |
elsif ($key eq 'miltime') { } |
|
|
1 |
0 |
elsif ($key eq 'dmy') { } |
|
439
|
18 |
3 |
unless ($val =~ /^\d+$/is) |
|
447
|
18 |
0 |
if (my $num = $MonthNums{$val}) { } |
|
464
|
5 |
1 |
unless ($val =~ /^\d+$/s) |
|
471
|
0 |
5 |
unless ($val = $WeekDayNums{$val}) |
|
479
|
5 |
1 |
unless ($val == $dt->day_of_week) |
|
489
|
0 |
3 |
unless $eztied->integer_check($key, $val) |
|
496
|
3 |
0 |
unless ($current == $val) |
|
510
|
0 |
3 |
unless $eztied->integer_check($key, $val) |
|
520
|
0 |
3 |
unless $eztied->integer_check($key, $val) |
|
530
|
0 |
3 |
unless $eztied->integer_check($key, $val) |
|
542
|
1 |
19 |
if (length $val == 1) |
|
549
|
0 |
20 |
unless ($val eq 'am' or $val eq 'pm') |
|
556
|
16 |
4 |
if ($current < 12) { } |
|
557
|
1 |
15 |
if ($val eq 'am') |
|
561
|
0 |
4 |
if ($val eq 'pm') |
|
566
|
4 |
15 |
if ($val eq 'am') { } |
|
575
|
0 |
2 |
unless $eztied->integer_check($key, $val) |
|
579
|
2 |
0 |
if ($dt->hour >= 12) |
|
589
|
0 |
2 |
unless ($val =~ /^\d{4}$/s) |
|
611
|
0 |
1 |
unless $eztied->integer_check("$key - day", $day) |
|
620
|
1 |
0 |
if (my $num = $MonthNums{$month}) { } |
|
630
|
0 |
1 |
unless $eztied->integer_check("$key - year", $year) |
|
869
|
0 |
16 |
unless (defined $val and $val =~ /^\d+$/s and $val > 0) |
|
871
|
0 |
0 |
defined $val ? : |
|
920
|
0 |
23 |
unless (defined $val) |
|
934
|
0 |
23 |
if ($val =~ /^\d+$/i) { } |
|
|
0 |
23 |
elsif ($relative{lc $val}) { } |
|
952
|
0 |
0 |
if ($val eq 'today' or $val eq 'now') |
|
957
|
0 |
0 |
if ($val eq 'tomorrow') |
|
965
|
0 |
0 |
if ($val eq 'yesterday') |
|
992
|
0 |
23 |
if ($val =~ s[[a-z_]+\s*/\s*[a-z_]+$][]is) |
|
1025
|
23 |
0 |
unless ($opts{'dateonly'}) |
|
1030
|
23 |
0 |
unless ($opts{'timeonly'}) |
|
1031
|
23 |
0 |
if (length $val) |
|
1037
|
23 |
0 |
unless ($opts{'dateonly'}) |
|
1038
|
22 |
1 |
if (length $val and not defined $set{'hour'}) |
|
1045
|
22 |
0 |
if defined $hour_new |
|
1046
|
22 |
0 |
if defined $min_new |
|
1047
|
22 |
0 |
if defined $sec_new |
|
1052
|
0 |
23 |
unless (defined $val) |
|
1059
|
23 |
0 |
if (%set) |
|
1096
|
191 |
3 |
if (defined $set->{$key}) |
|
1103
|
91 |
143 |
if (defined $offset{$key}) |
|
1130
|
232 |
470 |
defined $new ? : |
|
1159
|
0 |
23 |
if ($val =~ s/^([a-z]+) (\d+) (\S+) (\d+)$/$3/) { } |
|
|
1 |
22 |
elsif ($val =~ /^\d+ [a-z]+ \d{4}$/) { } |
|
|
22 |
0 |
elsif ($val =~ s/^([a-z]+) (\d+) (\d+)//) { } |
|
|
0 |
0 |
elsif ($val =~ s/^([a-z]+) (\d+)//) { } |
|
|
0 |
0 |
elsif ($val =~ s/^(\d{4}) (\d+) (\d+)//) { } |
|
|
0 |
0 |
elsif ($val =~ s/^(\d+) (\d+) (\d+)//) { } |
|
1235
|
0 |
45 |
unless (defined $str) |
|
1248
|
19 |
26 |
if ($str =~ s/^(\d+):(\d+):(\d+) (a|p)(m|\b)\s*//) { } |
|
|
3 |
23 |
elsif ($str =~ s/^(\d+):(\d+):(\d+)\s*//) { } |
|
|
0 |
23 |
elsif ($str =~ s/^(\d+):(\d+) (a|p)m?\s*//) { } |
|
|
0 |
23 |
elsif ($str =~ s/^(\d+):(\d+)\s*//) { } |
|
|
0 |
23 |
elsif ($str =~ s/^(\d+) (a|p)m?\b\s*//) { } |
|
|
0 |
23 |
elsif (not $opts{'skipjustdigits'} and $str =~ /^\d+$/) { } |
|
|
0 |
23 |
elsif ($opts{'croakonfail'}) { } |
|
1307
|
3 |
16 |
if ($hour == 12) { } |
|
|
5 |
11 |
elsif ($ampm =~ /^p/) { } |
|
1309
|
0 |
3 |
if ($ampm =~ /^a/) |
|
1345
|
558 |
859 |
if ($el =~ /^\{.*\}$/s) |
|
1388
|
1565 |
16 |
unless $_[0] =~ /^\%\w$/ |
|
1428
|
0 |
456 |
unless (defined $val) |
|
1479
|
62 |
1199 |
if (not ref $key and $key =~ /[\{\%]/ and not $key =~ /$pcode/o) |
|
1482
|
69 |
1199 |
if (ref $key) |
|
1488
|
274 |
206 |
if ($el =~ s/\{([^\}]+)\}/$1/ or $el =~ /$pcode/o) |
|
1499
|
0 |
480 |
unless (defined $val) |
|
1512
|
925 |
274 |
unless $opts{'normalized'} |
|
1518
|
0 |
1199 |
if ($key eq 'dt' or $key eq 'datetime') |
|
1533
|
15 |
1184 |
if $key eq 'newline' |
|
1534
|
15 |
1169 |
if $key eq 'tab' |
|
1535
|
0 |
1169 |
if $key eq 'leftbrace' |
|
1536
|
0 |
1169 |
if $key eq 'lb' |
|
1537
|
0 |
1169 |
if $key eq 'rightbrace' |
|
1538
|
0 |
1169 |
if $key eq 'rb' |
|
1539
|
15 |
1154 |
if $key eq 'percent' |
|
1542
|
75 |
1079 |
if ($key =~ s/no(zero|0)//) |
|
1546
|
66 |
1013 |
if ($key eq 'dayofmonth') |
|
1550
|
30 |
983 |
if ($key eq 'dayofmonth2d') |
|
1554
|
0 |
983 |
if ($key =~ /^dayofmonthord(word)?$/) |
|
1556
|
0 |
983 |
if ($key eq 'dayofmonthordnum') |
|
1560
|
30 |
953 |
if ($key eq 'weekdaynum') |
|
1564
|
0 |
953 |
if ($key eq 'weekdaynum2d') |
|
1568
|
45 |
908 |
if ($key =~ /^(weekdayshort|dayofweekshort|dayofweek)$/) |
|
1570
|
31 |
877 |
if ($key =~ /^(weekdaylong|dayofweeklong)$/) |
|
1574
|
47 |
830 |
if ($key eq 'monthshort') |
|
1576
|
16 |
814 |
if ($key eq 'month' or $key eq 'monthlong') |
|
1580
|
31 |
783 |
if ($key eq 'monthnum') |
|
1582
|
45 |
738 |
if ($key eq 'monthnum2d') |
|
1586
|
16 |
722 |
if ($key eq 'yearday') |
|
1588
|
30 |
692 |
if ($key eq 'yearday3d') |
|
1592
|
48 |
644 |
if ($key eq 'year') |
|
1594
|
45 |
599 |
if ($key eq 'year2d') |
|
1598
|
0 |
599 |
if ($key eq 'epoch' or $key eq 'epochsec') |
|
1602
|
30 |
569 |
if ($key =~ /^(is)?leapyear/) |
|
1606
|
30 |
539 |
if ($key eq 'daysinmonth') |
|
1615
|
1 |
538 |
if ($key eq 'dmy') |
|
1623
|
11 |
527 |
if ($key eq 'full') |
|
1638
|
30 |
497 |
if ($key =~ /^mil(itary)?time$/) |
|
1642
|
0 |
497 |
if ($key eq 'iso8601') |
|
1654
|
15 |
482 |
if ($key eq 'hour') |
|
1658
|
60 |
422 |
if ($key eq 'hour2d') |
|
1662
|
45 |
377 |
if ($key eq 'min') |
|
1666
|
75 |
302 |
if ($key eq 'min2d') |
|
1670
|
60 |
242 |
if ($key eq 'sec') |
|
1674
|
75 |
167 |
if ($key eq 'sec2d') |
|
1681
|
2 |
165 |
$dt->hour >= 12 ? : |
|
1684
|
45 |
122 |
if ($key eq 'ampm' or $key eq 'ampmlc') |
|
1688
|
45 |
77 |
if ($key eq 'ampmuc') |
|
1695
|
2 |
75 |
if ($dt->hour == 0 or $dt->hour == 12) { } |
|
|
0 |
75 |
elsif ($dt->hour > 12) { } |
|
1703
|
60 |
17 |
if ($key eq 'ampmhour') |
|
1707
|
17 |
0 |
if ($key eq 'clocktime' or $key eq 'clocktimestrict') |
|
1719
|
0 |
0 |
if ($key eq 'tz') |
|
1724
|
0 |
0 |
if ($key eq 'olson') |
|
1741
|
0 |
0 |
defined $eztied->{'warnings'} ? : |
|
1747
|
0 |
0 |
unless $level |
|
1749
|
0 |
0 |
if ($level == 1) |
|
1770
|
1352 |
618 |
unless ($key =~ /[\{\%]/) |
|
1775
|
100 |
1252 |
if $opts{'strip_no_zero'} |
|
1779
|
604 |
1366 |
if (exists $PCodes{$key}) |
|
1783
|
7 |
1359 |
if (exists $eztied->{'formats'}{$key}) |