Branch Coverage

blib/lib/Data/MuForm/Field.pm
Criterion Covered Total %
branch 162 208 77.8


line true false branch
16 3 75 if (my $meth = $self->get_method('build_id')) { }
0 75 elsif ($self->form and $self->form->can('build_field_id')) { }
27 0 76 $self->form && $self->form->field_prefix ? :
45 0 443 if $accessor =~ /\./
62 0 0 (shift())->active ? :
65 12 4933 if $self->_has_active
82 2 523 unless defined $value
83 41 482 ref $value eq 'ARRAY' ? :
85 83 478 if ref $_ or not defined $_
89 41 482 ref $value eq 'ARRAY' ? :
125 588 48 if ($self->form) { }
143 588 48 if ($self->form)
146 1 1175 if exists $self->methods->{$prefix}
148 19 1156 if (my $meth = $self->form->can($meth_name))
162 0 423 unless $self->is_active
163 0 423 if $self->password
164 219 204 if $self->has_input
165 122 82 if ($self->has_value)
167 5 117 if $self->has_transform_value_to_fif
180 2004 15 if ($field->parent)
183 1469 550 unless defined $parent_name and length $parent_name
191 0 0 if ($field->is_contains)
192 0 0 unless $parent
197 0 0 if ($parent)
200 0 0 unless defined $parent_accessor and length $parent_accessor
232 1 96 if (my $meth = $self->get_method('build_label'))
306 0 9 defined $do_errors ? :
320 1 0 if $self->form
333 72 37 if (not $message[0] =~ /{/) { }
365 65 45 if ($self->parent)
390 1 0 if not $_[0]->has_errors
395 0 585 unless $self->has_input
402 4 678 unless defined $x
403 584 94 unless ref $x
404 23 71 if (ref $x eq 'ARRAY')
406 20 4 if has_some_value($elem)
410 71 0 if (ref $x eq 'HASH')
412 64 9 if has_some_value($x->{$key})
416 0 0 if &blessed($x)
417 0 0 if ref $x
429 0 87 if $self->has_fields and $self->skip_fields_without_input and not $self->has_input
434 24 586 if ($self->required || $self->has_required_when && $self->match_when($self->required_when) and not $self->has_input && $self->input_defined) { }
28 558 elsif ($self->is_repeatable) { }
39 519 elsif (not $self->has_input) { }
19 500 elsif (not $self->input_defined) { }
438 16 8 if ($self->has_input)
439 0 16 $self->not_nullable ? :
449 3 16 if ($self->not_nullable) { }
2 14 elsif ($self->no_value_if_empty or $self->is_contains) { }
452 3 0 unless $self->is_compound
462 82 0 unless $continue_validation or $self->validate_when_empty
465 75 453 if ($self->has_fields) { }
470 8 445 if $self->has_transform_input_to_value
474 527 1 if $self->trim
481 19 509 if (my $meth = $self->get_method('validate'))
485 6 522 if ($self->has_transform_value_after_validate)
496 4 412 if $self->has_transform_param_to_input
512 46 183 unless my $class = &blessed(shift())
524 88 46 if (not ref $action or &$is_type($action))
527 6 128 if (my $when = $action->{'when'})
528 3 3 unless $self->match_when($when)
530 95 36 if (exists $action->{'type'}) { }
11 25 elsif (ref $action->{'check'} eq 'CODE') { }
6 19 elsif (ref $action->{'check'} eq 'Regexp') { }
5 14 elsif (ref $action->{'check'} eq 'ARRAY') { }
14 0 elsif (ref $action->{'transform'} eq 'CODE') { }
532 95 0 if (&$is_type($action->{'type'})) { }
537 0 0 unless $tobj = Moose::Util::TypeConstraints::find_type_constraint($type)
540 14 81 if ($tobj->has_coercion and $tobj->validate($value))
542 0 14 if ($@) { }
543 0 0 if ($tobj->has_message) { }
560 3 8 unless ($action->{'check'}->($value, $self))
565 5 1 unless ($value =~ /$action->{'check'}/)
570 4 1 unless (grep {$value eq $_;} @{$$action{'check'};})
579 0 14 if ($@) { }
586 50 81 if (defined $error_message)
587 9 41 ref $error_message eq 'ARRAY' ? :
588 13 37 if (defined $action->{'message'})
590 3 10 if (ref $act_msg eq 'CODE')
593 3 10 if (ref $act_msg eq 'ARRAY') { }
10 0 elsif (ref \$act_msg eq 'SCALAR') { }
613 4 8 $from_form ? :
614 0 12 unless ($field)
618 12 0 defined $field->fif ? :
619 4 8 if (ref $check_against eq 'CODE') { }
2 6 elsif (ref $check_against eq 'ARRAY') { }
3 3 elsif ($check_against eq $field_fif) { }
620 2 2 if &$check_against($field_fif, $self)
625 1 5 if $value eq $field_fif
647 341 69 if ($exists) { }
1 68 elsif ($self->disabled) { }
20 48 elsif ($self->has_input_without_param) { }
664 210 0 if ($self->form) { }
671 0 210 if $self->writeonly
679 36 552 if (my(@values) = $self->get_default_value)
680 2 34 if ($self->has_transform_default_to_value)
683 0 36 @values > 1 ? :
684 36 0 if (defined $value)
704 10 706 if (my $meth = $self->get_method('default')) { }
37 669 elsif (defined $self->default) { }
747 4 62 if $self->_has_field_message($msg)
750 1 61 if $self->has_form and $self->form->_has_form_message($msg)
757 0 0 $self->has_form ? :
778 0 2 if $self->has_errors