| line |
true |
false |
branch |
|
97
|
27 |
141 |
if (@_ > 1)
|
|
103
|
7 |
20 |
if (@{$self->_elements;})
|
|
116
|
13 |
18 |
$value ? :
|
|
141
|
10 |
37 |
if ($self->auto_inflate and not @{$self->get_inflators({'type', 'DateTime'});})
|
|
155
|
38 |
16 |
if (defined($default = $self->default) and length $default) { }
|
|
|
3 |
13 |
elsif (defined($default = $self->default_natural)) { }
|
|
157
|
32 |
6 |
if (not $self->form->submitted or $self->render_processed_value)
|
|
165
|
19 |
19 |
if (not $is_blessed or $is_blessed and not $default->isa('DateTime'))
|
|
175
|
2 |
1 |
if (defined(my $datetime_args = $self->default_datetime_args)) { }
|
|
176
|
1 |
1 |
if (exists $datetime_args->{'set_time_zone'}) { }
|
|
193
|
41 |
13 |
if (defined $default)
|
|
195
|
2 |
39 |
if (defined(my $datetime_args = $self->default_datetime_args))
|
|
219
|
31 |
12 |
ref $day->{'prefix'} ? :
|
|
221
|
0 |
43 |
if (exists $day->{'prefix_loc'})
|
|
225
|
0 |
0 |
ref $day->{'prefix_loc'} ? :
|
|
236
|
34 |
9 |
defined $day->{'default'} ? :
|
|
256
|
33 |
14 |
ref $month->{'prefix'} ? :
|
|
258
|
0 |
47 |
if (exists $month->{'prefix_loc'})
|
|
262
|
0 |
0 |
ref $month->{'prefix_loc'} ? :
|
|
275
|
38 |
9 |
defined $month->{'default'} ? :
|
|
293
|
4 |
43 |
defined $year->{'reference'} ? :
|
|
298
|
36 |
11 |
defined $year->{'list'} ? :
|
|
300
|
1 |
46 |
if ($year->{'reverse'})
|
|
307
|
33 |
14 |
ref $year->{'prefix'} ? :
|
|
309
|
0 |
47 |
if (exists $year->{'prefix_loc'})
|
|
313
|
0 |
0 |
ref $year->{'prefix_loc'} ? :
|
|
324
|
38 |
9 |
defined $year->{'default'} ? :
|
|
338
|
0 |
47 |
if (defined $month->{'names'}) { }
|
|
343
|
0 |
47 |
if (ref $languages ne 'ARRAY')
|
|
351
|
47 |
0 |
unless ($@)
|
|
355
|
14 |
33 |
$month->{'short_names'} ? :
|
|
387
|
0 |
172 |
defined $self->$type->{'name'} ? :
|
|
407
|
60 |
113 |
if (@_ > 1) { }
|
|
408
|
60 |
0 |
if (@order == 1 and ref $order[0] eq 'ARRAY')
|
|
414
|
1 |
205 |
if &none(sub {
$field eq $_;
}
, @{$self->_known_fields;})
|
|
417
|
1 |
58 |
if scalar &uniq(@order) != scalar @order
|
|
452
|
14 |
4 |
if (&all(sub {
defined $_;
}
, values %value) and &all(sub {
length $_;
}
, values %value))
|
|
463
|
3 |
11 |
if ($@) { }
|
|
484
|
0 |
47 |
$args ? :
|