line |
true |
false |
branch |
33
|
2 |
7 |
if @_ |
41
|
9 |
5 |
if (@_) |
43
|
6 |
3 |
if (defined $_[0]) |
45
|
3 |
3 |
$_[0] ? : |
60
|
0 |
6 |
unless (ref $locale_class) |
66
|
6 |
0 |
$locale_class->can('date_format_short') ? : |
76
|
1 |
5 |
if ($short eq 'dmy') |
103
|
3 |
2771 |
if (ref $arg and $arg->isa('DateTime')) { } |
|
394 |
2377 |
elsif (($year, $month, $mday, $hours, $mins, $secs, $fsecs, $ampm, $hours2, $ampm2) = $arg =~ m[
^
(\d{4}) \s* [-._]? \s* # year
(\d{2}) \s* [-._]? \s* # month
(\d{2}) # day
(?:
\s* [-._T]? \s*
(?:
(\d\d?) : # hour
(\d\d) # min
(?: (?: : (\d\d) )? (?: \. (\d{0,9}) )? )? # sec? nanosec?
(?: \s* ([aApP]\.?[mM]\.?) )? # am/pm?
|
(\d\d?) # hour
(?: \s* ([aApP]\.?[mM]\.?) ) # am/pm
)
)?
$
]x) { } |
|
2364 |
13 |
elsif (($month, $mday, $year, $hours, $mins, $secs, $fsecs, $ampm) = $arg =~ m[
^
(\d{1,2}) [-/._] (\d{1,2}) [-/._] (\d{4}) # xx-xx-yyyy
(?:
(?: \s+ | [-._T] )
(\d\d?) # hour
(?::(\d\d)(?::(\d\d))?)?(?:\.(\d{0,9}))? # min? sec? nanosec?
(?:\s*([aApP]\.?[mM]\.?))? # am/pm
)?
$
]x) { } |
|
1 |
12 |
elsif (lc $arg eq 'now' or lc $arg eq 'now!') { } |
|
8 |
4 |
elsif ($arg =~ /^(?: (-?\d+)(?:\.(\d{0,9}))? | (-?\d*)\.(\d{1,9}) )$/x) { } |
|
1 |
3 |
elsif ($arg =~ /^today$/i) { } |
|
2 |
1 |
elsif ($arg =~ /^(-)?infinity$/i) { } |
105
|
2 |
1 |
if (@_ > 1) |
116
|
1 |
1 |
if ($error) |
148
|
5 |
389 |
if defined $hours2 |
149
|
5 |
389 |
if defined $ampm2 |
169
|
1546 |
818 |
if ($European_Dates) |
183
|
7 |
1 |
defined $1 ? : |
184
|
6 |
2 |
defined $2 ? : |
186
|
0 |
8 |
if $epoch eq '-' |
191
|
6 |
2 |
if ($fsecs) |
195
|
3 |
3 |
if ($len < 9) { } |
|
0 |
3 |
elsif ($len > 9) { } |
216
|
1 |
1 |
if ($1) |
225
|
0 |
1 |
$Error ? : |
230
|
0 |
2759 |
unless ($date) |
232
|
0 |
0 |
$Error ? : |
252
|
1 |
0 |
if ($arg =~ /^(?: (-?\d+)(?:\.(\d{0,9}))? | (-?\d*)\.(\d{1,9}) )$/x) { } |
254
|
1 |
0 |
defined $1 ? : |
255
|
0 |
1 |
defined $2 ? : |
257
|
0 |
1 |
if $epoch eq '-' |
262
|
0 |
1 |
if ($fsecs) |
266
|
0 |
0 |
if ($len < 9) { } |
|
0 |
0 |
elsif ($len > 9) { } |
285
|
0 |
0 |
unless ($date) |
287
|
0 |
0 |
$Error ? : |
301
|
0 |
74 |
unless defined $date |
304
|
0 |
74 |
unless (ref $date and $date->isa('DateTime')) |
309
|
1 |
73 |
if $date->isa('DateTime::Infinite::Past') |
310
|
1 |
72 |
if $date->isa('DateTime::Infinite::Future') |
317
|
31 |
43 |
if ($format =~ /%[EFf]/) |
319
|
31 |
0 |
unless (%formats) |
330
|
3 |
28 |
if ($mday =~ /(?
|
|
2 |
26 |
elsif ($mday =~ /(?
|
|
2 |
24 |
elsif ($mday =~ /(?
|
350
|
1 |
71 |
wantarray ? : |
363
|
54 |
2704 |
unless defined $hours |
365
|
2022 |
736 |
if (defined $fsecs) { } |
369
|
1348 |
674 |
if ($len < 9) { } |
|
0 |
674 |
elsif ($len > 9) { } |
383
|
64 |
2694 |
unless defined $secs |
384
|
61 |
2697 |
unless defined $mins |
386
|
1352 |
1406 |
if ($ampm) |
388
|
1349 |
3 |
if ($ampm =~ /^p/i) { } |
|
0 |
3 |
elsif ($hours == 12) { } |
390
|
1349 |
0 |
unless $hours == 12 |
419
|
0 |
2758 |
if ($error) |
422
|
0 |
0 |
if $Debug |