| line |
true |
false |
branch |
|
40
|
6 |
48 |
if $field eq 'nanosecond' |
|
44
|
12 |
36 |
unless $length |
|
46
|
122 |
91 |
defined $_[0]->$field ? : |
|
133
|
6 |
62 |
unless $self->_has($_) |
|
138
|
14 |
18 |
if not @fields or $fields[0] ne 'year' |
|
140
|
29 |
3 |
if $self->has_locale |
|
141
|
30 |
2 |
if $self->has_time_zone |
|
178
|
0 |
0 |
unless defined $param{$_} |
|
198
|
0 |
0 |
unless defined $param{$_} |
|
220
|
0 |
18 |
if defined $base and not UNIVERSAL::can($base, 'utc_rd_values') |
|
226
|
7 |
11 |
if $self->{'has'}{'locale'} |
|
227
|
7 |
11 |
if $self->{'has'}{'time_zone'} |
|
235
|
3 |
17 |
if (defined $self->{'base'}) |
|
239
|
6 |
15 |
unless defined $value |
|
240
|
0 |
15 |
if ($key eq 'time_zone') |
|
252
|
0 |
0 |
unless defined $_[0]{'base'} |
|
258
|
0 |
0 |
defined $_[0]{'base'} ? : |
|
268
|
7 |
42 |
if ($k eq 'locale') |
|
274
|
2 |
40 |
if $self->{'base'} and defined $v |
|
287
|
188 |
152 |
defined $_[0]{'has'}{$_[1]} ? : |
|
294
|
9 |
3 |
unless $self->_has($_) |
|
300
|
0 |
0 |
if $_[0]->has_year and $_[0]->has_month |
|
304
|
0 |
0 |
if $_[0]->has_hour and $_[0]->has_minute |
|
313
|
5 |
4 |
if $self->_has($_) |
|
320
|
1 |
4 |
unless $self->has_year |
|
324
|
1 |
19 |
if not $can and $self->_has($_) |
|
325
|
3 |
16 |
if $can and not $self->_has($_) |
|
342
|
0 |
8 |
unless $#_ == 1 |
|
344
|
8 |
0 |
if (defined $time_zone) |
|
346
|
5 |
3 |
unless ref $time_zone |
|
347
|
0 |
8 |
if defined $_[0]{'base'} |
|
354
|
0 |
7 |
unless $#_ == 1 |
|
356
|
7 |
0 |
if (defined $locale) |
|
358
|
4 |
3 |
unless ref $locale |
|
359
|
0 |
7 |
if defined $_[0]{'base'} |
|
367
|
6 |
10 |
if defined $_[0]{'base'} |
|
396
|
3 |
4 |
if $set |
|
397
|
1 |
6 |
if $p{'to'} eq $field |
|
530
|
0 |
0 |
unless defined $epoch |
|
535
|
0 |
0 |
defined $_[0]->locale ? : |
|
545
|
4 |
0 |
unless defined $self->nanosecond |
|
550
|
0 |
0 |
if $frac |
|
567
|
6 |
0 |
if ($self->can($1)) |
|
573
|
2 |
0 |
exists $FIELD_LENGTH{$1} ? : |
|
|
4 |
2 |
defined $tmp ? : |
|
582
|
115 |
0 |
$formats{$1} ? : |
|
592
|
107 |
2 |
unless wantarray |
|
607
|
2 |
15 |
if defined $_ |
|
618
|
2 |
12 |
if defined $self->{'base'} and not exists $param{'base'} |
|
620
|
4 |
10 |
if (defined $param{'base'} and UNIVERSAL::can($param{'base'}, 'utc_rd_values')) { } |
|
633
|
66 |
60 |
unless defined $value |
|
634
|
0 |
60 |
if ($key eq 'time_zone') |
|
648
|
0 |
4 |
unless defined $dt and UNIVERSAL::can($dt, 'utc_rd_values') |
|
651
|
0 |
4 |
if ($self->has_time_zone) |
|
659
|
9 |
14 |
unless defined $value |
|
660
|
0 |
14 |
if ($key eq 'time_zone' or $key eq 'locale') |
|
666
|
2 |
12 |
unless $dt->$key == $value |
|
677
|
0 |
50 |
if defined $self->{'base'} and not defined $base |
|
678
|
0 |
50 |
unless defined $base and UNIVERSAL::can($base, 'utc_rd_values') |
|
682
|
2 |
48 |
if $self->has_time_zone |
|
686
|
4 |
46 |
unless defined $result |
|
687
|
2 |
44 |
if $self->has_time_zone |
|
710
|
160 |
112 |
if (defined $self->$field) |
|
713
|
0 |
160 |
if $overflow and $field eq $FIELDS[0] |
|
715
|
65 |
95 |
if ($self->$field != $result->$field) |
|
718
|
12 |
53 |
if ($@) |
|
722
|
11 |
1 |
if ($@) |
|
728
|
31 |
34 |
if ($overflow) { } |
|
765
|
135 |
85 |
if (defined $self->$field) |
|
768
|
0 |
135 |
if $overflow and $field eq $FIELDS[0] |
|
770
|
111 |
24 |
if ($self->$field != $result->$field) |
|
772
|
32 |
79 |
if ($overflow) |
|
783
|
0 |
79 |
if ($result->$field != $self->$field) |
|
805
|
0 |
5 |
if defined $self->{'base'} and not defined $base |
|
806
|
0 |
5 |
unless defined $base and UNIVERSAL::can($base, 'utc_rd_values') |
|
812
|
1 |
4 |
unless defined $dt2 |
|
813
|
0 |
4 |
unless defined $dt1 |
|
816
|
2 |
2 |
if $dt2 - $delta >= $base |
|
823
|
3 |
4 |
unless $self->has_year |
|
832
|
3 |
5 |
unless $self->has_year |
|
836
|
3 |
2 |
unless $self->has_nanosecond |
|
846
|
3 |
0 |
unless $start or $end |
|
850
|
2 |
0 |
if $start |
|
853
|
2 |
0 |
if ($end) |
|
855
|
1 |
1 |
if ($self->has_nanosecond) { } |
|
878
|
43 |
17 |
if (exists $self->{'has'}{$_} and defined $self->{'has'}{$_}) |
|
880
|
5 |
38 |
if ($_ eq 'year') |
|
888
|
8 |
9 |
unless $freq |
|
890
|
1 |
16 |
if $_ eq 'month' |
|
891
|
4 |
13 |
if $_ eq 'day' |
|
892
|
1 |
16 |
if $_ eq 'hour' |
|
893
|
5 |
12 |
if $_ eq 'minute' |
|
894
|
1 |
16 |
if $_ eq 'second' |
|
896
|
2 |
8 |
if ($freq eq '') |
|
906
|
3 |
5 |
if (defined $year) |
|
921
|
2 |
8 |
if ($self->has($_)) |
|
926
|
1 |
1 |
if @reset |
|
941
|
0 |
0 |
if $cloning |
|
946
|
0 |
0 |
unless defined $self->{'has'}{$key} |
|
948
|
0 |
0 |
if ($key eq 'locale') { } |
|
|
0 |
0 |
elsif ($key eq 'time_zone') { } |