| line |
true |
false |
branch |
|
26
|
0 |
27 |
unless $$self{'session'}
|
|
27
|
0 |
27 |
unless my $query = $params{'query'}
|
|
31
|
0 |
27 |
unless $self->_prep($query)
|
|
45
|
0 |
27 |
unless my(@fields) = $query->fields
|
|
50
|
0 |
43 |
unless my $field_id = $field->field_id
|
|
64
|
0 |
27 |
unless my $table = 'DBR::Config::Table'->new('session', $$self{'session'}, 'table_id', $table_id)
|
|
69
|
0 |
27 |
unless my $allfields = $table->fields
|
|
77
|
27 |
76 |
if ($checkfield->is_pkey) { }
|
|
78
|
0 |
27 |
unless ($field)
|
|
84
|
60 |
16 |
unless ($field)
|
|
97
|
0 |
27 |
unless my $relations = $table->relations
|
|
103
|
0 |
27 |
unless my $scope = $query->scope
|
|
104
|
0 |
27 |
unless my $instance = $query->instance
|
|
106
|
0 |
27 |
unless my $helper = 'DBR::Record::Helper'->new('session', $$self{'session'}, 'instance', $instance, 'tablemap', \%tablemap, 'pkmap', \%pkmap, 'flookup', \%flookup, 'scope', $scope, 'lastidx', $query->lastidx)
|
|
119
|
27 |
76 |
if $field->is_readonly or $instance->is_readonly
|
|
120
|
0 |
103 |
unless $self->_mk_accessor('mode', $mymode, 'field', $field->clone('with_index', 1), 'helper', $helper)
|
|
128
|
0 |
35 |
unless $self->_mk_relation('relation', $relation, 'helper', $helper)
|
|
137
|
0 |
27 |
unless $self->_mk_method('method', 'set', 'helper', $helper)
|
|
142
|
0 |
27 |
unless $self->_mk_method('method', 'delete', 'helper', $helper)
|
|
157
|
0 |
103 |
unless my $mode = $params{'mode'}
|
|
158
|
0 |
103 |
unless my $helper = $params{'helper'}
|
|
171
|
43 |
60 |
if (defined $idx) { }
|
|
179
|
27 |
76 |
if ($trans = $field->translator)
|
|
183
|
76 |
27 |
if ($mode eq 'rw' and $field) { }
|
|
|
27 |
0 |
elsif ($mode eq 'ro') { }
|
|
192
|
0 |
103 |
unless my $subref = _eval_accessor($helper, $field, $trans, $code)
|
|
217
|
0 |
35 |
unless my $relation = $params{'relation'}
|
|
218
|
0 |
35 |
unless my $helper = $params{'helper'}
|
|
226
|
0 |
35 |
unless my $field_id = $relation->field_id
|
|
228
|
0 |
35 |
unless my $field = $$self{'fieldmap'}{$field_id}
|
|
235
|
0 |
35 |
unless my $subref = _eval_relation($helper, $relation, $field, $code)
|
|
263
|
0 |
54 |
unless my $helper = $params{'helper'}
|
|
264
|
0 |
54 |
unless my $method = $params{'method'}
|
|
274
|
0 |
54 |
unless my $subref = _eval_method($helper, $code)
|