| 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 '$@'") |