| line |
true |
false |
branch |
|
30
|
1 |
2 |
if ($_[$i] eq '-api_version') { }
|
|
86
|
0 |
293 |
if ($self->{'debug'})
|
|
87
|
0 |
0 |
unless binmode STDERR, ':encoding(UTF-8)'
|
|
220
|
0 |
289 |
if ($self->{'debug'})
|
|
226
|
6 |
283 |
unless (@matches)
|
|
228
|
0 |
6 |
if ($self->{'debug'})
|
|
239
|
0 |
1109 |
unless (defined $matches[$i])
|
|
252
|
5 |
267 |
unless $constructor and $args
|
|
255
|
9 |
258 |
unless $dt
|
|
257
|
2 |
259 |
if ($post_construct)
|
|
260
|
25 |
192 |
unless $dt and $self->_check_dt($dt, \%args)
|
|
263
|
1 |
191 |
if $self->{'time_zone'}
|
|
291
|
0 |
294 |
if ($self->{'debug'} and $pattern ne $self->{'pattern'})
|
|
314
|
1139 |
839 |
if ($1) { }
|
|
|
6 |
833 |
elsif ($3) { }
|
|
|
1 |
832 |
elsif ($4) { }
|
|
315
|
0 |
1139 |
unless my $p = $patterns->{$1}
|
|
318
|
1128 |
11 |
if ($p->{'field'}) { }
|
|
327
|
2 |
4 |
$2 ? :
|
|
340
|
8 |
285 |
$self->{'strict'} ? :
|
|
465
|
0 |
6242 |
unless length $b <=> length $a
|
|
475
|
0 |
11826 |
unless length $b <=> length $a
|
|
486
|
0 |
0 |
unless length $b <=> length $a
|
|
505
|
44 |
294 |
if $self->{'locale_days'}
|
|
522
|
75 |
294 |
if $self->{'locale_months'}
|
|
539
|
0 |
0 |
unless length $b <=> length $a
|
|
570
|
75 |
208 |
if (defined $args->{'month_name'})
|
|
572
|
0 |
75 |
unless my $num = $self->_locale_months->{lc $args->{'month_name'}}
|
|
578
|
12 |
271 |
if (defined $args->{'am_pm'} and defined $args->{'hour_12'}) { }
|
|
|
3 |
268 |
elsif (defined $args->{'hour_12'}) { }
|
|
582
|
4 |
8 |
if (lc $args->{'am_pm'} eq lc $am) { }
|
|
583
|
0 |
4 |
if $args->{'hour'} == 12
|
|
586
|
8 |
0 |
unless $args->{'hour'} == 12
|
|
597
|
10 |
270 |
if (defined $args->{'year_100'})
|
|
598
|
1 |
9 |
if (defined $args->{'century'}) { }
|
|
604
|
4 |
5 |
$args->{'year_100'} >= 69 ? :
|
|
611
|
14 |
266 |
if ($args->{'time_zone_offset'})
|
|
614
|
1 |
13 |
if ($offset eq 'Z') { }
|
|
|
2 |
11 |
elsif ($offset =~ /^[+-][0-9]{2}$/) { }
|
|
622
|
3 |
11 |
unless ($tz)
|
|
632
|
18 |
259 |
if (defined $args->{'time_zone_abbreviation'}) { }
|
|
634
|
3 |
15 |
unless (exists $self->{'zone_map'}{$abbr})
|
|
640
|
4 |
11 |
unless (defined $self->{'zone_map'}{$abbr})
|
|
653
|
8 |
262 |
if ($args->{'time_zone_name'})
|
|
656
|
6 |
2 |
unless ($tz = &try(sub {
|
|
662
|
3 |
5 |
unless ($tz)
|
|
668
|
5 |
0 |
if $tz
|
|
680
|
6 |
261 |
if (defined $args->{'nanosecond'})
|
|
687
|
3 |
3 |
if length $args->{'nanosecond'} != 9
|
|
694
|
179 |
622 |
unless defined $args->{$k}
|
|
697
|
28 |
239 |
if (defined $args->{'epoch'}) { }
|
|
|
4 |
235 |
elsif ($args->{'day_of_year'}) { }
|
|
704
|
2 |
26 |
if (my $nano = $args->{'nanosecond'})
|
|
731
|
4 |
254 |
if (defined $args->{'hour'} and defined $args->{'hour_12'})
|
|
732
|
3 |
1 |
unless ($args->{'hour'} % 12 == $args->{'hour_12'})
|
|
740
|
27 |
228 |
if (defined $args->{'hour'} and defined $args->{'am_pm'})
|
|
741
|
6 |
21 |
if ($is_am and $args->{'hour'} >= 12 or not $is_am and $args->{'hour'} < 12)
|
|
750
|
4 |
245 |
if (defined $args->{'year'} and defined $args->{'century'})
|
|
751
|
3 |
1 |
unless (int $args->{'year'} / 100 == $args->{'century'})
|
|
759
|
4 |
242 |
if (defined $args->{'year'} and defined $args->{'year_100'})
|
|
760
|
3 |
1 |
unless ($args->{'year'} % 100 == $args->{'year_100'})
|
|
768
|
4 |
239 |
if (defined $args->{'time_zone_abbreviation'} and defined $args->{'time_zone_offset'})
|
|
770
|
3 |
1 |
unless ($self->{'zone_map'}{$args->{'time_zone_abbreviation'}} and $self->{'zone_map'}{$args->{'time_zone_abbreviation'}} eq $args->{'time_zone_offset'})
|
|
782
|
28 |
212 |
if (defined $args->{'epoch'})
|
|
785
|
24 |
116 |
if (defined $args->{$key} and $dt->$key != $args->{$key})
|
|
786
|
3 |
18 |
$key eq 'day_of_year' ? :
|
|
|
3 |
21 |
$key eq 'hour_12' ? :
|
|
798
|
4 |
212 |
if (defined $args->{'month'} and defined $args->{'day_of_year'})
|
|
799
|
3 |
1 |
unless ($dt->month == $args->{'month'})
|
|
807
|
44 |
169 |
if (defined $args->{'day_name'})
|
|
809
|
0 |
44 |
unless defined $dow
|
|
813
|
3 |
41 |
unless ($dt->day_of_week_0 == $dow)
|
|
823
|
4 |
206 |
if (defined $args->{'day_of_week'})
|
|
824
|
3 |
1 |
unless ($dt->day_of_week == $args->{'day_of_week'})
|
|
834
|
4 |
203 |
if (defined $args->{'day_of_week_sun_0'})
|
|
835
|
3 |
1 |
unless ($dt->day_of_week % 7 == $args->{'day_of_week_sun_0'})
|
|
845
|
4 |
200 |
if (defined $args->{'iso_week_year'})
|
|
846
|
3 |
1 |
unless ($dt->week_year == $args->{'iso_week_year'})
|
|
856
|
4 |
197 |
if (defined $args->{'iso_week_year_100'})
|
|
857
|
3 |
1 |
unless (0 + substr($dt->week_year, -2) == $args->{'iso_week_year_100'})
|
|
868
|
4 |
194 |
if (defined $args->{'week_mon_1'})
|
|
869
|
3 |
1 |
unless (0 + $dt->strftime('%W') == $args->{'week_mon_1'})
|
|
879
|
4 |
191 |
if (defined $args->{'week_sun_0'})
|
|
880
|
3 |
1 |
unless (0 + $dt->strftime('%U') == $args->{'week_sun_0'})
|
|
903
|
29 |
0 |
$self->{'locale'}->can('code') ? :
|
|
937
|
32 |
65 |
if ref $self->{'on_error'}
|
|
938
|
33 |
32 |
if $self->{'on_error'} eq 'croak'
|