Branch Coverage

blib/lib/DBR/Config/Scope.pm
Criterion Covered Total %
branch 21 34 61.7


line true false branch
26 0 37 unless $$self{'session'}
27 0 37 unless $$self{'instance'}
30 0 37 unless my $scope_id = $self->_get_scope_id($offset + 1)
52 0 37 if ($file =~ m[^/]) { }
55 37 0 unless ($file =~ /^\(eval/)
72 11 26 if ($scope_id)
78 0 26 unless my $dbrh = $instance->connect
91 0 26 if $record
101 26 0 if $scope_id
112 11 26 if ($$cache[0] and $$cache[0] + 300 > time)
116 26 11 unless ($fids)
119 0 26 unless my $dbrh = $instance->connect
121 0 26 unless my $fields = $dbrh->select(-'table', 'cache_fielduse', -'fields', 'field_id', -'where', {'scope_id', ['d', $$self{'scope_id'}]})
133 0 12 unless my $field = 'DBR::Config::Field'->new('session', $$self{'session'}, 'field_id', $fid)
150 26 16 if $$self{'fcache'}{$fid}++
154 0 16 if $self->_b_in($fid, $$cache[1])
160 0 16 unless my $dbrh = $instance->connect