Condition Coverage

blib/lib/CGI/AutoForm.pm
Criterion Covered Total %
condition 0 286 0.0


and 3 conditions

line !l l&&!r l&&r condition
1115 0 0 0 ref $field and %$field
1212 0 0 0 not ref $pick_list and exists $$group{'table'}{'io'}{'picklist'}{$fname}
0 0 0 not ref $pick_list and exists $$group{'table'}{'io'}{'picklist'}{$fname} and @{$$group{'table'}{'io'}{'picklist'}{$fname};}
1214 0 0 0 $type eq 'SELECT' || $type eq 'RADIO' || $type eq 'CHECKBOX' || $type eq 'CHECKGROUP' || $all_db_defn and not ref $pick_list
1249 0 0 0 $all_db_defn and ref $pick_list
1277 0 0 0 $type eq 'TEXT' and _isdate($field_attrs)
0 0 0 $type eq 'TEXT' and _isdate($field_attrs) and not $usage
1573 0 0 0 not $$rec{'SEARCH_CONTROL_TYPE'} and $usage eq $CGI::AutoForm::SEARCH_GROUP
1608 0 0 0 $$group{'table'} and $type = $$group{'table'}->column_type($$rec{'FIELD_NAME'})
0 0 0 $$group{'table'} and $type = $$group{'table'}->column_type($$rec{'FIELD_NAME'}) and $$group{'table'}{'ioclass'} eq 'DBIx::IO::OracleIO'
0 0 0 $$group{'table'} and $type = $$group{'table'}->column_type($$rec{'FIELD_NAME'}) and $$group{'table'}{'ioclass'} eq 'DBIx::IO::OracleIO' and $type eq 'LONG' || $type eq 'RAW' || $type eq 'LONG RAW'
1618 0 0 0 not length $$rec{'BRIEF_HEADING'} and $all_db_defn
1637 0 0 0 $table and %$table
1794 0 0 0 $i && !($i % $cols)
1839 0 0 0 $i && !($i % $cols)
2186 0 0 0 not length $val and $$self{'coalesce_default_insert'}
2343 0 0 0 $usage eq $CGI::AutoForm::DISPLAY_ONLY_GROUP and not $$group{'tabular'}
0 0 0 $usage eq $CGI::AutoForm::INSERT_GROUP and $$field{'INSERTABLE'} ne 'Y'
0 0 0 $usage eq $CGI::AutoForm::EDIT_GROUP and $$field{'UPDATABLE'} ne 'Y'
0 0 0 $usage eq $CGI::AutoForm::SEARCH_GROUP and $$field{'SEARCHABLE'} ne 'Y'
2360 0 0 0 $$field{'INPUT_CONTROL_TYPE'} eq 'CHECKGROUP' and ref $$field{'PICK_HASH'}
2523 0 0 0 $$group{'tabular'} and $rec_no == 0
2528 0 0 0 $$group{'tabular'} and $rec_no == $rec_count
2646 0 0 0 $tail_rec and $$group{'TABULAR_TD_TAIL_STYLE'}
2699 0 0 0 not $self->readonly and $$field_s{'REQUIRED'} eq 'Y'
0 0 0 not $self->readonly and $$field_s{'REQUIRED'} eq 'Y' and $usage eq $CGI::AutoForm::INSERT_GROUP || $usage eq $CGI::AutoForm::EDIT_GROUP
2892 0 0 0 not $rec and $$self{'curr_rec_no'} == 0
2961 0 0 0 $field and $usage eq $CGI::AutoForm::EDIT_GROUP
0 0 0 $field and $usage eq $CGI::AutoForm::EDIT_GROUP and $$field{'UPDATABLE'} ne 'Y'
3084 0 0 0 exists $$templ{$prop} and not exists $$target{$prop}
3264 0 0 0 $usage eq $CGI::AutoForm::INSERT_GROUP and $$field{'INSERTABLE'} ne 'Y'
0 0 0 $usage eq $CGI::AutoForm::EDIT_GROUP and $$field{'UPDATABLE'} ne 'Y'
0 0 0 $usage eq $CGI::AutoForm::SEARCH_GROUP and $$field{'SEARCHABLE'} ne 'Y'
3281 0 0 0 length $rs && length $re
0 0 0 length $rs || length $re and not length $rs && length $re
3308 0 0 0 $$field{'REQUIRED'} eq 'Y' and scalar @values == 0
3338 0 0 0 ref $val eq 'HASH' and not %$val
0 0 0 $$field{'REQUIRED'} eq 'Y' and not length $val
0 0 0 length $val and not ref $val
3355 0 0 0 ref $$group{'table'} && length $ct
0 0 0 ($rv = $$field{'DATATYPE'} ? _verify_datatype($val, $$field{'DATATYPE'}, $$field{'_imp_datetype'}) : 1) > 0 and ref $$group{'table'} && length $ct ? ($rv = $$group{'table'}->verify_datatype($val, $$field{'FIELD_NAME'})) > 0 : 1
3359 0 0 0 $$field{'INPUT_MAXLENGTH'} and $$field{'INPUT_MAXLENGTH'} < length $val
0 0 0 ref $$field{'PICK_HASH'} and not exists $$field{'PICK_HASH'}{$val}
3412 0 0 0 $datetype eq 'DATETIME' || $datetype eq 'DATE' and not $val =~ /^\d{2,14}$/
3580 0 0 0 ref $caller && ref $caller->field_hash
3589 0 0 0 length $quant and length $unit
0 0 0 length $quant and length $unit and DBIx::IO::GenLib::isint($quant)
3866 0 0 0 ref $self and $$self{'dontescape'}
3876 0 0 0 defined $newlinestoo and $newlinestoo
3899 0 0 0 ref $self and $$self{'dontunescape'}
3905 0 0 0 /^#(\d+)$/ && $latin
0 0 0 /^#x([0-9a-f]+)$/i && $latin

or 2 conditions

line l !l condition
998 0 0 $self->push_group($group, $mid) || (return -2)
1508 0 0 $defaults ||= {}
1520 0 0 $searcher->search(undef, ['APPEAR_ORDER']) || (return undef)
2343 0 0 exists $$rec{$$field{'FIELD_NAME'}} or return 0
2488 0 0 $query ||= {}
2968 0 0 $rs ||= '_SYSDATE'
2969 0 0 $re ||= '_SYSDATE'
3467 0 0 $datetype ||= 'DATETIME'

or 3 conditions

line l !l&&r !l&&!r condition
799 0 0 0 ref $caller || $caller
1144 0 0 0 $usage ||= $self->group_usage
1206 0 0 0 $pick_list ||= $$field_attrs{'PICK_LIST'}
1214 0 0 0 $type eq 'SELECT' || $type eq 'RADIO' || $type eq 'CHECKBOX' || $type eq 'CHECKGROUP' || $all_db_defn
1219 0 0 0 $$field_attrs{'ALT_MASK_FIELD'} || lc $fname
1334 0 0 0 $group ||= $self->current_group
1558 0 0 0 $$rec{'USE_DATA_DICT'} eq 'Y' or $all_db_defn
1570 0 0 0 $$rec{'INPUT_SIZE'} ||= $CGI::AutoForm::DEFAULT_FIELD_LENGTH
1571 0 0 0 $$rec{'INPUT_MAXLENGTH'} ||= $CGI::AutoForm::DEFAULT_FIELD_LENGTH
1573 0 0 0 $$rec{'INPUT_CONTROL_TYPE'} || $self->is_readonly($rec)
1608 0 0 0 $type eq 'LONG' || $type eq 'RAW' || $type eq 'LONG RAW'
1667 0 0 0 length $$field{'DEFAULT_VALUE'} or not length $dval
1694 0 0 0 $type eq 'TEXT' or $type eq 'PASSWORD'
0 0 0 $type eq 'TEXT' or $type eq 'PASSWORD' or $type eq 'MATCH TEXT'
0 0 0 $type eq 'TEXT' or $type eq 'PASSWORD' or $type eq 'MATCH TEXT' or $type eq 'COMMALIST'
0 0 0 $type eq 'CHECKBOX' or $type eq 'CHECKGROUP'
2234 0 0 0 $$field{'DATATYPE'} eq $DBIx::IO::GenLib::DATE_TYPE || $$field{'DATATYPE'} eq $DBIx::IO::GenLib::DATETIME_TYPE
2241 0 0 0 $type eq 'DATE' || $type eq 'DATETIME'
2255 0 0 0 $type eq 'DATERANGE' or $type eq 'DATETRANGE'
0 0 0 $type eq 'DATE' or $type eq 'DATETIME'
2343 0 0 0 $usage eq $CGI::AutoForm::DISPLAY_ONLY_GROUP and not $$group{'tabular'} or $usage eq $CGI::AutoForm::INSERT_GROUP and $$field{'INSERTABLE'} ne 'Y'
0 0 0 $usage eq $CGI::AutoForm::DISPLAY_ONLY_GROUP and not $$group{'tabular'} or $usage eq $CGI::AutoForm::INSERT_GROUP and $$field{'INSERTABLE'} ne 'Y' or $usage eq $CGI::AutoForm::EDIT_GROUP and $$field{'UPDATABLE'} ne 'Y'
0 0 0 $usage eq $CGI::AutoForm::DISPLAY_ONLY_GROUP and not $$group{'tabular'} or $usage eq $CGI::AutoForm::INSERT_GROUP and $$field{'INSERTABLE'} ne 'Y' or $usage eq $CGI::AutoForm::EDIT_GROUP and $$field{'UPDATABLE'} ne 'Y' or $usage eq $CGI::AutoForm::SEARCH_GROUP and $$field{'SEARCHABLE'} ne 'Y'
2699 0 0 0 $usage eq $CGI::AutoForm::INSERT_GROUP || $usage eq $CGI::AutoForm::EDIT_GROUP
2960 0 0 0 $self->readonly or $usage eq $CGI::AutoForm::DISPLAY_ONLY_GROUP
3033 0 0 0 $year != 0 or $$attrs{'REQUIRED'} ne 'Y'
3264 0 0 0 $usage eq $CGI::AutoForm::INSERT_GROUP and $$field{'INSERTABLE'} ne 'Y' or $usage eq $CGI::AutoForm::EDIT_GROUP and $$field{'UPDATABLE'} ne 'Y'
0 0 0 $usage eq $CGI::AutoForm::INSERT_GROUP and $$field{'INSERTABLE'} ne 'Y' or $usage eq $CGI::AutoForm::EDIT_GROUP and $$field{'UPDATABLE'} ne 'Y' or $usage eq $CGI::AutoForm::SEARCH_GROUP and $$field{'SEARCHABLE'} ne 'Y'
3269 0 0 0 not length $v or $usage eq $CGI::AutoForm::EDIT_GROUP
3277 0 0 0 $type eq 'RANGE' or $type eq 'DATERANGE'
0 0 0 $type eq 'RANGE' or $type eq 'DATERANGE' or $type eq 'DATETRANGE'
0 0 0 $type eq 'MATCH TEXT' or $type eq 'COMMALIST'
3281 0 0 0 length $rs || length $re
3411 0 0 0 $imp || $type
3412 0 0 0 $datetype eq 'DATETIME' || $datetype eq 'DATE'
3468 0 0 0 $y == 0 or $m == 0
0 0 0 $y == 0 or $m == 0 or $d == 0
3587 0 0 0 length $quant or length $unit