| line |
true |
false |
branch |
|
61
|
31 |
25 |
unless ($args{'form_only'})
|
|
84
|
0 |
0 |
if (@_ == 1) { }
|
|
|
0 |
0 |
elsif (@_ == 2) { }
|
|
92
|
0 |
0 |
unless ($where eq "before" or $where eq "after")
|
|
133
|
1 |
0 |
if ($self->has_children or not $self->is_self_closing)
|
|
138
|
2 |
2 |
$_->isa('Rose::HTML::Form::Field') ? :
|
|
156
|
1 |
0 |
if ($self->has_children or not $self->is_self_closing)
|
|
161
|
2 |
2 |
$_->isa('Rose::HTML::Form::Field') ? :
|
|
187
|
221 |
401 |
if UNIVERSAL::isa($value, "Rose::HTML::Form::Field")
|
|
191
|
329 |
72 |
if (ref $value eq 'HASH') { }
|
|
|
72 |
0 |
elsif (not ref $value) { }
|
|
193
|
0 |
329 |
unless $type = delete $value->{'type'}
|
|
208
|
0 |
401 |
unless my $field_class = $class->field_type_class($type)
|
|
211
|
8 |
393 |
unless ($field_class->can("new"))
|
|
222
|
0 |
8 |
if $error
|
|
226
|
46 |
355 |
if (UNIVERSAL::isa($field_class, "Rose::HTML::Form::Field::Compound"))
|
|
245
|
254 |
3747 |
if (@_ == 3)
|
|
247
|
0 |
254 |
unless (UNIVERSAL::isa($field, "Rose::HTML::Form::Field"))
|
|
254
|
0 |
254 |
if ($self->isa('Rose::HTML::Form')) { }
|
|
265
|
0 |
254 |
unless (defined $field->rank)
|
|
273
|
3714 |
33 |
if ($self->{'fields'}{$name})
|
|
281
|
0 |
33 |
if (($sep_pos = index($name, ".")) < 0)
|
|
291
|
33 |
0 |
if (UNIVERSAL::isa($field, "Rose::HTML::Form::Field::Compound"))
|
|
294
|
33 |
0 |
if $field
|
|
305
|
0 |
0 |
if (index($name, ".") < 0)
|
|
307
|
0 |
0 |
$self->local_form($name) ? :
|
|
315
|
0 |
0 |
if $parent_form = $self->local_form($parent_name)
|
|
318
|
0 |
0 |
unless defined $parent_form
|
|
319
|
0 |
0 |
wantarray ? :
|
|
328
|
4 |
194 |
if @_ == 1 and ref $_[0] eq "ARRAY"
|
|
334
|
5 |
471 |
if (UNIVERSAL::isa($arg, 'Rose::HTML::Form::Field')) { }
|
|
338
|
0 |
5 |
if (&refaddr($field) eq &refaddr($self))
|
|
345
|
0 |
5 |
if ($self->can("form") and $self->form($field->local_name))
|
|
351
|
4 |
1 |
unless (defined $field->rank)
|
|
363
|
1 |
470 |
if ($self->can("form") and $self->form($arg))
|
|
368
|
105 |
365 |
if (UNIVERSAL::isa($field, 'Rose::HTML::Form::Field')) { }
|
|
370
|
0 |
105 |
if (&refaddr($field) eq &refaddr($self))
|
|
382
|
467 |
3 |
unless (defined $field->rank)
|
|
395
|
159 |
38 |
unless defined wantarray
|
|
396
|
36 |
2 |
wantarray ? :
|
|
415
|
186 |
1924 |
if $field->isa("Rose::HTML::Form::Field::Compound")
|
|
422
|
0 |
0 |
if @_ > 1
|
|
423
|
0 |
0 |
wantarray ? :
|
|
430
|
0 |
8 |
unless my $field = $self->field($name)
|
|
433
|
1 |
7 |
if @_
|
|
447
|
38 |
3 |
$field->can('_subfield_names') ? :
|
|
450
|
20 |
0 |
wantarray ? :
|
|
455
|
0 |
133 |
$_->can('subfield_names') ? :
|
|
462
|
2421 |
168 |
if (my $fields = $self->{'field_list'})
|
|
464
|
2416 |
5 |
wantarray ? :
|
|
471
|
168 |
0 |
wantarray ? :
|
|
478
|
0 |
13 |
if @_
|
|
485
|
1 |
11 |
if ($field->is_flat_group) { }
|
|
495
|
13 |
0 |
wantarray ? :
|
|
503
|
5 |
0 |
$fields && @$fields ? :
|
|
510
|
48 |
168 |
if (my $names = $self->{'field_monikers'})
|
|
512
|
48 |
0 |
wantarray ? :
|
|
525
|
168 |
0 |
wantarray ? :
|
|
541
|
0 |
0 |
if UNIVERSAL::isa($name, "Rose::HTML::Form::Field")
|
|
577
|
69 |
555 |
if (my $parent_form = $self->parent_form)
|
|
602
|
6 |
16 |
if ($self->coalesce_hidden_fields) { }
|
|
617
|
22 |
0 |
wantarray ? :
|
|
624
|
3 |
1 |
if (defined $self->output_value)
|
|
636
|
3 |
1 |
if (defined $self->output_value)
|
|
655
|
0 |
10 |
wantarray ? :
|
|
669
|
0 |
6 |
wantarray ? :
|