| line |
true |
false |
branch |
|
761
|
0 |
0 |
unless ref $clone eq ref $self |
|
782
|
0 |
0 |
if defined $$self{$KEY_FIELD_RENDE} |
|
785
|
0 |
0 |
if defined $$self{$KEY_FIELD_INVAL} |
|
810
|
0 |
0 |
if (defined $new_value) |
|
858
|
0 |
0 |
if (defined $new_value) |
|
887
|
0 |
0 |
if (defined $new_value) |
|
913
|
0 |
0 |
if (defined $new_value) |
|
934
|
0 |
0 |
if ($FIELD_TYPES{$new_value}) |
|
956
|
0 |
0 |
if ($new_value ne '') |
|
1313
|
0 |
0 |
if (defined $new_value) |
|
1334
|
0 |
0 |
if (defined $new_value) |
|
1359
|
0 |
0 |
if (defined $new_value) |
|
1360
|
0 |
0 |
ref $new_value eq 'ARRAY' ? : |
|
1365
|
0 |
0 |
if (UNIVERSAL::isa($defin, 'Data::MultiValuedHash')) |
|
1368
|
0 |
0 |
unless ref $defin eq 'HASH' |
|
1427
|
0 |
0 |
unless ($FIELD_TYPES{$type}) |
|
1435
|
0 |
0 |
if (not $name or $name =~ /^$$self{$KEY_DEF_FF_NAME}/) |
|
1441
|
0 |
0 |
if $name eq $$self{$KEY_IS_SUBMIT} |
|
1442
|
0 |
0 |
if $type eq 'submit' |
|
1445
|
0 |
0 |
unless ($has_is_submit) |
|
1453
|
0 |
0 |
unless ($has_submit_button) |
|
1484
|
0 |
0 |
unless (defined $$self{$KEY_FIELD_RENDE}) |
|
1487
|
0 |
0 |
if (defined $name) { } |
|
1509
|
0 |
0 |
unless $$self{$KEY_NORMALIZED} |
|
1540
|
0 |
0 |
if (ref $new_value eq 'HASH') |
|
1543
|
0 |
0 |
unless (defined $$self{$KEY_FIELD_INVAL}) |
|
1567
|
0 |
0 |
unless $$self{$KEY_NORMALIZED} |
|
1569
|
0 |
0 |
if ($$self{$KEY_NEW_FORM}) |
|
1582
|
0 |
0 |
unless $FIELD_TYPES{$type}{$TKEY_EDITAB} |
|
1598
|
0 |
0 |
if ($is_required) |
|
1599
|
0 |
0 |
unless ($input_count) |
|
1607
|
0 |
0 |
if (defined $min_count) |
|
1608
|
0 |
0 |
unless ($input_count >= $min_count) |
|
1616
|
0 |
0 |
if (defined $max_count) |
|
1617
|
0 |
0 |
unless ($input_count <= $max_count) |
|
1627
|
0 |
0 |
if ($req_options and $FIELD_TYPES{$type}{$TKEY_SELECT}) |
|
1630
|
0 |
0 |
unless ($input_count == scalar @matched) |
|
1638
|
0 |
0 |
if (defined $pattern) |
|
1640
|
0 |
0 |
unless ($input_count == scalar @matched) |
|
1675
|
0 |
0 |
unless $$self{$KEY_FIELD_RENDE} |
|
1676
|
0 |
0 |
unless $$self{$KEY_FIELD_INVAL} |
|
1684
|
0 |
0 |
if ($in_table_format) |
|
1692
|
0 |
0 |
unless ($FIELD_TYPES{$type}{$TKEY_VISIBL}) |
|
1701
|
0 |
0 |
if ($FIELD_TYPES{$type}{$TKEY_EDITAB}) |
|
1702
|
0 |
0 |
if ($$rh_invalid{$name}) |
|
1705
|
0 |
0 |
if ($defin->fetch_value($FKEY_IS_REQUIRED)) |
|
1708
|
0 |
0 |
if ($defin->fetch_value($FKEY_IS_PRIVATE)) |
|
1714
|
0 |
0 |
if (my $hm = $defin->fetch_value($FKEY_HELP_MESSAGE)) |
|
1715
|
0 |
0 |
if ($in_table_format) |
|
1721
|
0 |
0 |
if ($$rh_invalid{$name}) |
|
1725
|
0 |
0 |
if ($in_table_format) |
|
1733
|
0 |
0 |
if ref $field_html eq 'ARRAY' |
|
1737
|
0 |
0 |
if ($in_table_format) { } |
|
1754
|
0 |
0 |
if ($in_table_format) |
|
1759
|
0 |
0 |
$force_list ? : |
|
1777
|
0 |
0 |
if (defined $new_value) |
|
1799
|
0 |
0 |
if (defined $new_value) |
|
1821
|
0 |
0 |
if (defined $new_value) |
|
1857
|
0 |
0 |
unless defined $empty_field_str |
|
1858
|
0 |
0 |
unless $$self{$KEY_NORMALIZED} |
|
1864
|
0 |
0 |
if ($in_table_format) |
|
1872
|
0 |
0 |
unless ($FIELD_TYPES{$type}{$TKEY_EDITAB}) |
|
1875
|
0 |
0 |
if ($defin->fetch_value($FKEY_EXCLUDE_IN_ECHO)) |
|
1878
|
0 |
0 |
if ($exclude_private and $defin->fetch_value($FKEY_IS_PRIVATE)) |
|
1886
|
0 |
0 |
unless scalar @input |
|
1893
|
0 |
0 |
$in_table_format ? : |
|
1895
|
0 |
0 |
if ($in_table_format) { } |
|
1903
|
0 |
0 |
if ($in_table_format) |
|
1907
|
0 |
0 |
$force_list ? : |
|
1938
|
0 |
0 |
unless defined $empty_field_str |
|
1939
|
0 |
0 |
unless $$self{$KEY_NORMALIZED} |
|
1949
|
0 |
0 |
unless ($FIELD_TYPES{$type}{$TKEY_EDITAB}) |
|
1952
|
0 |
0 |
if ($defin->fetch_value($FKEY_EXCLUDE_IN_ECHO)) |
|
1955
|
0 |
0 |
if ($exclude_private and $defin->fetch_value($FKEY_IS_PRIVATE)) |
|
1960
|
0 |
0 |
unless scalar @input |
|
1967
|
0 |
0 |
$force_list ? : |
|
1986
|
0 |
0 |
if (defined $new_value) |
|
2011
|
0 |
0 |
if (UNIVERSAL::isa($defin, 'Data::MultiValuedHash')) |
|
2014
|
0 |
0 |
unless ref $defin eq 'HASH' |
|
2038
|
0 |
0 |
if $type |
|
2040
|
0 |
0 |
wantarray ? : |
|
2060
|
0 |
0 |
if $type |
|
2063
|
0 |
0 |
wantarray ? : |
|
2082
|
0 |
0 |
if ($attrib) { } |
|
2083
|
0 |
0 |
unless $FIELD_TYPES{$type} |
|
2088
|
0 |
0 |
wantarray ? : |
|
2116
|
0 |
0 |
ref $ra_list eq 'ARRAY' ? : |
|
2125
|
0 |
0 |
if ($max_cols or not $max_rows) { } |
|
2126
|
0 |
0 |
if $max_cols < 1 |
|
2127
|
0 |
0 |
$length % $max_cols ? : |
|
2129
|
0 |
0 |
if $max_rows < 1 |
|
2130
|
0 |
0 |
$length % $max_rows ? : |
|
2136
|
0 |
0 |
if ($acr_first) { } |
|
2139
|
0 |
0 |
unless my(@row_source) = splice(@source, 0, $max_cols) |
|
2150
|
0 |
0 |
unless my(@cell_source) = splice(@source, 0, $max_rows) |
|
2195
|
0 |
0 |
if ref $type eq 'ARRAY' |
|
2196
|
0 |
0 |
unless $FIELD_TYPES{$type} |
|
2227
|
0 |
0 |
unless ($FIELD_TYPES{$type}) |
|
2234
|
0 |
0 |
unless ($defin->exists($FKEY_NAME)) |
|
2243
|
0 |
0 |
unless ($$self{$KEY_NEW_FORM} or $defin->fetch_value($FKEY_OVERRIDE)) |
|
2258
|
0 |
0 |
unless ref $tag_attr eq 'HASH' |
|
2263
|
0 |
0 |
$FIELD_TYPES{$type}{$TKEY_FLDGRP} ? : |
|
2270
|
0 |
0 |
if ($FIELD_TYPES{$type}{$TKEY_FLDGRP}) |
|
2272
|
0 |
0 |
unless (defined $wanted) |
|
2274
|
0 |
0 |
if (ref $first_default eq 'HASH') { } |
|
2280
|
0 |
0 |
if $wanted < 1 |
|
2296
|
0 |
0 |
if (ref $html eq 'ARRAY') |
|
2347
|
0 |
0 |
if ($have < $wanted) |
|
2381
|
0 |
0 |
if ($type eq 'checkbox' or $type eq 'radio') { } |
|
2383
|
0 |
0 |
unless defined $params{'value'} |
|
2386
|
0 |
0 |
unless defined $label |
|
2387
|
0 |
0 |
if $defin->fetch_value($FKEY_NOLABELS) |
|
2393
|
0 |
0 |
if $params{'value'} eq '' |
|
2425
|
0 |
0 |
if ($type eq 'checkbox_group' or $type eq 'radio_group') { } |
|
2441
|
0 |
0 |
if (ref $$ra_defaults[0] eq 'HASH') |
|
2444
|
0 |
0 |
if (ref $ra_defaults eq 'ARRAY') |
|
2459
|
0 |
0 |
if (ref $$ra_labels[0] eq 'HASH') |
|
2464
|
0 |
0 |
unless (defined $$ra_labels[$index]) |
|
2468
|
0 |
0 |
if $defin->fetch_value($FKEY_NOLABELS) |
|
2476
|
0 |
0 |
if ($have < $wanted) |
|
2503
|
0 |
0 |
if (ref $$ra_defaults[0] eq 'HASH') |
|
2506
|
0 |
0 |
if (ref $ra_defaults eq 'ARRAY') |
|
2515
|
0 |
0 |
if (ref $$ra_labels[0] eq 'HASH') |
|
2520
|
0 |
0 |
unless (defined $$ra_labels[$index]) |
|
2537
|
0 |
0 |
if ($defin->fetch_value($FKEY_TYPE) eq 'popup_menu') |
|
2569
|
0 |
0 |
if (ref $$ra_labels[0] eq 'HASH') |
|
2574
|
0 |
0 |
unless (defined $$ra_labels[$index]) |
|
2591
|
0 |
0 |
if ($defin->fetch_value($FKEY_TYPE) eq 'popup_menu_group') |
|
2601
|
0 |
0 |
unless (ref $rh_defaults eq 'HASH') |
|
2610
|
0 |
0 |
if ($have < $wanted) |
|
2647
|
0 |
0 |
if $defin->fetch_value($FKEY_LIST) |
|
2652
|
0 |
0 |
if $defin->fetch_value($FKEY_LINEBREAK) |
|
2659
|
0 |
0 |
if ($cols or $rows) |