| line |
true |
false |
branch |
|
34
|
0 |
42 |
unless ref $$self{'table'} eq 'DBR::Config::Table'
|
|
35
|
0 |
42 |
unless $$self{'instance'}
|
|
44
|
0 |
15 |
unless my $scope = 'DBR::Config::Scope'->new('session', $$self{'session'}, 'conf_instance', $table->conf_instance, 'extra_ident', $table->name)
|
|
50
|
0 |
15 |
unless my $pk = $table->primary_key
|
|
51
|
0 |
15 |
unless my $prefields = $scope->fields
|
|
56
|
0 |
15 |
unless my $query = 'DBR::Query::Select'->new('session', $$self{'session'}, 'instance', $$self{'instance'}, 'scope', $scope, 'fields', \@fields, 'tables', $table)
|
|
74
|
0 |
12 |
unless my $scope = 'DBR::Config::Scope'->new('session', $$self{'session'}, 'conf_instance', $table->conf_instance, 'extra_ident', $table->name)
|
|
82
|
0 |
12 |
unless my $pk = $table->primary_key
|
|
83
|
0 |
12 |
unless my $prefields = $scope->fields
|
|
89
|
0 |
12 |
unless my $builder = 'DBR::Interface::Where'->new('session', $$self{'session'}, 'instance', $$self{'instance'}, 'primary_table', $table)
|
|
97
|
0 |
12 |
if $where->is_emptyset
|
|
100
|
2 |
10 |
if ($alias)
|
|
104
|
0 |
12 |
unless my $query = 'DBR::Query::Select'->new('session', $$self{'session'}, 'instance', $$self{'instance'}, 'scope', $scope, 'fields', \@fields, 'tables', $builder->tables, 'where', $where, 'builder', $builder)
|
|
129
|
0 |
7 |
unless my $field = $table->get_field($fieldname)
|
|
130
|
0 |
5 |
unless my $value = $field->makevalue($fields{$fieldname})
|
|
132
|
0 |
5 |
unless my $set = 'DBR::Query::Part::Set'->new($field, $value)
|
|
136
|
0 |
2 |
unless my $query = 'DBR::Query::Insert'->new('instance', $$self{'instance'}, 'session', $$self{'session'}, 'sets', \@sets, 'tables', $table)
|
|
151
|
0 |
0 |
if shift()
|
|
154
|
0 |
0 |
unless my $pk = $table->primary_key
|
|
155
|
0 |
0 |
unless scalar @$pk == 1
|
|
158
|
0 |
0 |
unless my $scope = 'DBR::Config::Scope'->new('session', $$self{'session'}, 'conf_instance', $table->conf_instance, 'extra_ident', $table->name)
|
|
164
|
0 |
0 |
unless my $prefields = $scope->fields
|
|
169
|
0 |
0 |
unless my $value = $field->makevalue($pkval)
|
|
171
|
0 |
0 |
ref $pkval ? :
|
|
|
0 |
0 |
if $value->is_emptyset
|
|
173
|
0 |
0 |
unless my $outwhere = 'DBR::Query::Part::Compare'->new('field', $field, 'value', $value)
|
|
175
|
0 |
0 |
unless my $query = 'DBR::Query::Select'->new('session', $$self{'session'}, 'instance', $$self{'instance'}, 'fields', \@fields, 'tables', $table, 'where', $outwhere, 'scope', $scope)
|
|
186
|
0 |
0 |
if (ref $pkval) { }
|
|
198
|
0 |
0 |
unless my $field = $table->get_field($fieldname)
|
|
200
|
0 |
0 |
unless my $trans = $field->translator
|
|
201
|
0 |
0 |
unless $trans->module eq 'Enum'
|
|
203
|
0 |
0 |
unless my $opts = $trans->options
|
|
205
|
0 |
0 |
wantarray ? :
|
|
212
|
0 |
10 |
unless my $field = $$self{'table'}->get_field($fieldname)
|
|
215
|
4 |
6 |
if ($trans) { }
|
|
217
|
2 |
0 |
defined $value ? :
|
|
|
2 |
2 |
unless defined $obj
|
|
222
|
3 |
1 |
defined $value ? :
|
|
|
4 |
2 |
unless $field->testsub->($value)
|