| line |
true |
false |
branch |
|
93
|
0 |
5 |
unless $self->init(@_) |
|
95
|
0 |
5 |
if $self->verbose |
|
135
|
0 |
5 |
if (1 == @_) |
|
138
|
0 |
0 |
if (ref $id) { } |
|
155
|
0 |
5 |
if defined $self->item_id and not $self->item |
|
173
|
0 |
5 |
unless ref $profile eq 'HASH' |
|
206
|
11 |
6 |
unless $field->can('options') |
|
211
|
1 |
5 |
$self->can($method) ? : |
|
|
6 |
0 |
unless @options |
|
215
|
5 |
1 |
unless @options |
|
218
|
0 |
1 |
if ref $options[0] |
|
220
|
0 |
1 |
if @options % 2 |
|
227
|
1 |
0 |
if @opts |
|
236
|
0 |
0 |
if $field->can('form') |
|
246
|
4 |
6 |
unless $fields |
|
248
|
0 |
6 |
if (ref $fields eq 'ARRAY') |
|
273
|
0 |
17 |
unless $name and $type_data |
|
276
|
17 |
0 |
unless ref $type_data eq 'HASH' |
|
281
|
0 |
17 |
if $type eq 'Auto' |
|
283
|
0 |
17 |
unless $type |
|
285
|
0 |
17 |
$type =~ s/^\+// ? : |
|
289
|
0 |
17 |
unless $class->require |
|
294
|
0 |
17 |
$self->name_prefix ? : |
|
304
|
0 |
17 |
unless ($field->order) |
|
306
|
0 |
0 |
$fields ? : |
|
330
|
0 |
0 |
if ($self->can($method)) { } |
|
337
|
0 |
0 |
@values > 1 ? : |
|
356
|
0 |
0 |
if $field->writeonly |
|
361
|
0 |
0 |
if defined $v |
|
388
|
0 |
0 |
if $field->password |
|
399
|
0 |
0 |
wantarray ? : |
|
408
|
0 |
3 |
if $self->name_prefix |
|
411
|
3 |
3 |
if $field->name eq $name |
|
414
|
0 |
0 |
if $no_die |
|
448
|
0 |
3 |
if $self->ran_validation |
|
453
|
0 |
3 |
if $self->use_existing_values |
|
468
|
0 |
9 |
if $field->clear |
|
476
|
0 |
9 |
if $field->clear |
|
477
|
5 |
4 |
unless defined $field->value |
|
481
|
0 |
4 |
if $self->can($method) |
|
498
|
4 |
5 |
if $_->errors |
|
505
|
0 |
3 |
if $self->verbose |
|
516
|
0 |
0 |
$_->errors ? : |
|
536
|
0 |
0 |
if @$group < 2 |
|
546
|
0 |
0 |
unless defined $value |
|
551
|
0 |
0 |
if $self->field($name)->type eq 'Boolean' and $value == 0 |
|
554
|
0 |
0 |
if (ref $value) { } |
|
555
|
0 |
0 |
unless grep {/\S/;} @$value |
|
557
|
0 |
0 |
unless $value =~ /\S/ |
|
564
|
0 |
0 |
unless $field and not $field->required |
|
591
|
0 |
0 |
if $_->errors |
|
606
|
0 |
0 |
unless $name |
|
607
|
0 |
0 |
unless my $field = $self->field($name) |
|
622
|
0 |
0 |
unless $name |
|
624
|
0 |
0 |
ref $name ? : |
|
625
|
0 |
0 |
unless $field |
|
640
|
0 |
0 |
if $field->must_submit |
|
643
|
0 |
0 |
if exists $params->{$name} |
|
645
|
0 |
0 |
if $field->writeonly |
|
668
|
1 |
22 |
if @_ |