| line |
true |
false |
branch |
|
96
|
27 |
141 |
if (@_ > 1)
|
|
102
|
7 |
20 |
if (@{$self->_elements;})
|
|
115
|
13 |
18 |
$value ? :
|
|
140
|
10 |
37 |
if ($self->auto_inflate and not @{$self->get_inflators({'type', 'DateTime'});})
|
|
154
|
38 |
16 |
if (defined($default = $self->default) and length $default) { }
|
|
|
3 |
13 |
elsif (defined($default = $self->default_natural)) { }
|
|
156
|
32 |
6 |
if (not $self->form->submitted or $self->render_processed_value)
|
|
164
|
19 |
19 |
if (not $is_blessed or $is_blessed and not $default->isa('DateTime'))
|
|
174
|
2 |
1 |
if (defined(my $datetime_args = $self->default_datetime_args)) { }
|
|
175
|
1 |
1 |
if (exists $datetime_args->{'set_time_zone'}) { }
|
|
192
|
41 |
13 |
if (defined $default)
|
|
194
|
2 |
39 |
if (defined(my $datetime_args = $self->default_datetime_args))
|
|
218
|
31 |
12 |
ref $day->{'prefix'} ? :
|
|
220
|
0 |
43 |
if (exists $day->{'prefix_loc'})
|
|
224
|
0 |
0 |
ref $day->{'prefix_loc'} ? :
|
|
235
|
34 |
9 |
defined $day->{'default'} ? :
|
|
255
|
33 |
14 |
ref $month->{'prefix'} ? :
|
|
257
|
0 |
47 |
if (exists $month->{'prefix_loc'})
|
|
261
|
0 |
0 |
ref $month->{'prefix_loc'} ? :
|
|
274
|
38 |
9 |
defined $month->{'default'} ? :
|
|
292
|
4 |
43 |
defined $year->{'reference'} ? :
|
|
297
|
36 |
11 |
defined $year->{'list'} ? :
|
|
299
|
1 |
46 |
if ($year->{'reverse'})
|
|
306
|
33 |
14 |
ref $year->{'prefix'} ? :
|
|
308
|
0 |
47 |
if (exists $year->{'prefix_loc'})
|
|
312
|
0 |
0 |
ref $year->{'prefix_loc'} ? :
|
|
323
|
38 |
9 |
defined $year->{'default'} ? :
|
|
337
|
0 |
47 |
if (defined $month->{'names'}) { }
|
|
342
|
0 |
47 |
if (ref $languages ne 'ARRAY')
|
|
350
|
47 |
0 |
unless ($@)
|
|
354
|
14 |
33 |
$month->{'short_names'} ? :
|
|
386
|
0 |
172 |
defined $self->$type->{'name'} ? :
|
|
406
|
60 |
113 |
if (@_ > 1) { }
|
|
407
|
60 |
0 |
if (@order == 1 and ref $order[0] eq 'ARRAY')
|
|
413
|
1 |
205 |
if &none(sub {
$field eq $_;
}
, @{$self->_known_fields;})
|
|
416
|
1 |
58 |
if scalar &uniq(@order) != scalar @order
|
|
451
|
14 |
4 |
if (&all(sub {
defined $_;
}
, values %value) and &all(sub {
length $_;
}
, values %value))
|
|
462
|
3 |
11 |
if ($@) { }
|
|
483
|
0 |
47 |
$args ? :
|