Branch Coverage

blib/lib/DBR/Config/Trans.pm
Criterion Covered Total %
branch 13 26 50.0


line true false branch
42 0 24 unless ref $field_ids eq 'ARRAY'
46 0 120 unless my $module = $MODULES{$trans_id} or $self->_error('invalid module')
51 0 120 unless $pkg->moduleload('session', $$self{'session'}, 'instance', $instance, 'field_id', $field_ids)
75 0 68 unless $$self{'trans_id'}
76 0 68 unless $$self{'field_id'}
78 0 68 unless my $module = $MODULES{$$self{'trans_id'}}
83 0 68 unless $self->init
96 0 2 unless my $field = 'DBR::Config::Field'->new('session', $$self{'session'}, 'field_id', $$self{'field_id'})
110 2 2 unless scalar @tv > 0
111 0 2 if scalar @tv > 1
114 0 2 unless my $testsub = $field->testsub
117 0 0 defined $value ? :
0 2 unless &$testsub($value)