blib/lib/DBR/Config/Field.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 21 | 39 | 53.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
168 | 0 | 18 | 85 | $$fieldref[8] =~ /^\d+$/ and $$fieldref[8] > 0 |
177 | 335 | 0 | 18 | defined $$fieldref[9] and length $$fieldref[9] |
185 | 18 | 137 | 198 | length $code and $$fieldref[4] |
300 | 37 | 0 | 0 | $existing_trans_id and $$new_trans{'id'} == $existing_trans_id |
324 | 9 | 0 | 0 | defined $existing_regex and $regex eq $existing_regex |
349 | 0 | 0 | 0 | defined $existing_value and $value eq $existing_value |
line | l | !l | condition |
---|---|---|---|
83 | 172 | 0 | $datatypes{lc $type} || (return undef) |
92 | 34 | 0 | $params{'session'} || (return croak('session is required')) |
93 | 34 | 0 | $params{'instance'} || (return croak('instance is required')) |
95 | 34 | 0 | $params{'table_id'} || (return croak('table_id is required')) |
100 | 34 | 0 | $instance->connect || (return croak("Failed to connect to ${\$instance->name;}")) |
129 | 0 | 18 | $$field[7] ||= 5 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
118 | 216 | 38 | 90 | $$field[4] || $$field[6] |
189 | 100 | 0 | 0 | eval "sub { my \$v = shift; $code }" || confess("DBR::Config::Field::_get_valcheck: failed to gen sub '$@'") |
253 | 100 | 0 | $VALCHECKS{$code . $extra} ||= eval "sub { my \$v = shift; $code }" || confess("DBR::Config::Field::_get_valcheck: failed to gen sub '$@'") |