| line |
true |
false |
branch |
|
95
|
7 |
17834 |
if $dt
|
|
489
|
308 |
6051 |
if exists $args{'args'}
|
|
491
|
140 |
6219 |
if (exists $extra_args{'strip'})
|
|
493
|
54 |
86 |
ref $extra_args{'strip'} eq 'ARRAY' ? :
|
|
496
|
192 |
1 |
if (ref $strip eq 'Regexp') { }
|
|
507
|
2 |
6356 |
if (exists $extra_args{'base'})
|
|
524
|
3811 |
2547 |
if ($stripped =~ /(\D)/) { }
|
|
526
|
0 |
3811 |
if $ENV{'DFF_DEBUG'}
|
|
528
|
0 |
3811 |
if $ENV{'DFF_DEBUG'}
|
|
532
|
0 |
2547 |
if $ENV{'DFF_DEBUG'}
|
|
537
|
6358 |
0 |
unless $date eq '-infinity'
|
|
543
|
1593 |
4765 |
if (my($possible_year, $remaining) = $date =~ /\A(\d\d)($DELIM.+)/mx)
|
|
545
|
8 |
1585 |
if ($possible_year > 31)
|
|
552
|
21 |
6337 |
if ($extra_args{'european'})
|
|
554
|
11 |
10 |
if (my($m, $d, $y) = $date =~ /\A$MMDDYYYY/mx)
|
|
560
|
0 |
6358 |
if $ENV{'DFF_DEBUG'}
|
|
570
|
10 |
47 |
if ($date =~ /$abbrev/)
|
|
584
|
3 |
6345 |
if (my($tz) = $date =~ /\s(GMT(?:\+0)?|UTC)\s/mx)
|
|
592
|
10 |
6335 |
if ($date =~ /Z\z/mx)
|
|
600
|
2252 |
4083 |
if (my($tz) = $date =~ /.+\s+(\D[^\s]+)\z/)
|
|
602
|
0 |
2252 |
if $ENV{'DFF_DEBUG'}
|
|
604
|
0 |
2252 |
if (exists $extra_args->{'tz_map'}{$tz})
|
|
608
|
680 |
1572 |
if ('DateTime::TimeZone'->is_valid_name($tz))
|
|
610
|
0 |
680 |
if $ENV{'DFF_DEBUG'}
|
|
618
|
24 |
5631 |
if (my($tz) = $date =~ /(
|
|
624
|
0 |
24 |
if $ENV{'DFF_DEBUG'}
|
|
629
|
18 |
6 |
if length $tz == 3
|
|
630
|
24 |
0 |
if (_is_valid_tz_offset($tz))
|
|
632
|
0 |
24 |
if $ENV{'DFF_DEBUG'}
|
|
639
|
2620 |
783 |
if (length $date > 15 and $date =~ /\dT\d/ || $date =~ /\d\s\d/)
|
|
644
|
20 |
2600 |
if (my($tz) = $date =~ /(
|
|
648
|
0 |
20 |
if $ENV{'DFF_DEBUG'}
|
|
653
|
18 |
2 |
if length $tz == 3
|
|
654
|
18 |
2 |
if (_is_valid_tz_offset($tz))
|
|
666
|
7 |
5606 |
if (my($tz) = $date =~ /\s(
|
|
673
|
7 |
0 |
if (_is_valid_tz_offset($tz))
|
|
736
|
0 |
0 |
if ($string =~ /ago/mx)
|
|
739
|
0 |
0 |
if (my($amount, $unit) = $string =~ /(\d+)\s([^\s]+)/mx)
|
|
741
|
0 |
0 |
unless $unit =~ /s\z/
|
|
763
|
0 |
1455 |
unless defined $args{'parsed'}{'ampm'}
|
|
765
|
0 |
1455 |
if $ENV{'DFF_DEBUG'}
|
|
770
|
708 |
747 |
if ($ampm =~ /a\.?m?\.?/mix) { }
|
|
|
747 |
0 |
elsif ($ampm =~ /p\.?m?\.?/mix) { }
|
|
772
|
0 |
708 |
if $ENV{'DFF_DEBUG'}
|
|
773
|
354 |
354 |
if ($args{'parsed'}{'hour'} == 12)
|
|
781
|
0 |
747 |
if $ENV{'DFF_DEBUG'}
|
|
783
|
353 |
394 |
if ($args{'parsed'}{'hour'} == 24)
|
|
796
|
0 |
807 |
unless exists $args{'parsed'}{'month'}
|
|
797
|
0 |
807 |
unless defined $args{'parsed'}{'month'}
|
|
799
|
13 |
794 |
if ($args{'parsed'}{'month'} == 0)
|
|
802
|
0 |
13 |
if $ENV{'DFF_DEBUG'}
|
|
826
|
0 |
18 |
$args{'args'} ? :
|
|
827
|
0 |
18 |
if defined $args{'parsed'}{'year'}
|
|
829
|
0 |
18 |
if ($constructor_args{'prefer_future'})
|
|
831
|
0 |
0 |
if ($args{'parsed'}{'month'} < 'DateTime::Format::Flexible'->base->month or $args{'parsed'}{'month'} eq 'DateTime::Format::Flexible'->base->month and $args{'parsed'}{'day'} < 'DateTime::Format::Flexible'->base->day)
|
|
846
|
2108 |
693 |
if length $args{'parsed'}{'year'} == 4
|
|
856
|
139 |
560 |
if ($year > 69) { }
|
|
858
|
1 |
138 |
if ($dt->strftime('%y') > 69) { }
|
|
870
|
1 |
559 |
if ($dt->strftime('%y') > 69) { }
|