| line |
true |
false |
branch |
|
22
|
7 |
76 |
if (@_ == 1)
|
|
23
|
3 |
4 |
if ref $_[0] eq 'HASH'
|
|
24
|
2 |
2 |
if ref $_[0] eq 'ARRAY'
|
|
26
|
2 |
76 |
if @_ % 2
|
|
57
|
5 |
38 |
if ($package)
|
|
58
|
1 |
4 |
if (ref $package) { }
|
|
62
|
3 |
1 |
unless ($package =~ s/^\+//)
|
|
67
|
0 |
4 |
if $@
|
|
68
|
3 |
1 |
$package->can('new') ? :
|
|
78
|
37 |
12 |
if ($zone)
|
|
80
|
2 |
35 |
&blessed($zone) && $zone->isa('DateTime::TimeZone') ? :
|
|
90
|
36 |
6 |
if ($locale)
|
|
92
|
2 |
34 |
&blessed($locale) && ($locale->isa('DateTime::Locale::root') || $locale->isa('DateTime::Locale::FromData')) ? :
|
|
110
|
0 |
13 |
if $@
|
|
124
|
5 |
8 |
if $options{'epoch'}
|
|
125
|
1 |
7 |
if $options{'object'}
|
|
130
|
0 |
7 |
if $@
|
|
137
|
6 |
1 |
if $epoch eq 'epoch'
|
|
143
|
0 |
7 |
if $@
|
|
151
|
2 |
1 |
if $object eq 'object'
|
|
157
|
3 |
0 |
if (my $time_zone = delete $options{'time_zone'})
|
|
158
|
3 |
0 |
if ($object->can('set_time_zone'))
|
|
165
|
0 |
3 |
if $@
|
|
167
|
3 |
0 |
if ($orig_time_zone)
|
|
190
|
4 |
9 |
if ($@) { }
|
|
205
|
1 |
0 |
unless ($self->{'parser'}{$pattern})
|
|
212
|
0 |
1 |
if ($@) { }
|
|
239
|
0 |
4 |
if $@
|
|
247
|
0 |
80 |
unless defined $self->{'config'}{$key}
|
|
248
|
0 |
80 |
if defined $options->{$key}
|
|
256
|
0 |
7 |
unless @_
|
|
257
|
0 |
3 |
if @_ == 1 and &blessed($_[0]) and $_[0]->isa('DateTime')
|
|
264
|
0 |
17 |
unless ($self->format($formatter))
|
|
276
|
20 |
0 |
if $options->{$key}
|
|
285
|
4 |
0 |
if $on_error eq 'ignore'
|
|
286
|
0 |
0 |
if ref $on_error eq 'CODE'
|