| line |
true |
false |
branch |
|
16
|
0 |
31 |
unless $$self{'session'} = $params{'session'}
|
|
17
|
0 |
31 |
unless $$self{'instance'} = $params{'instance'}
|
|
18
|
0 |
31 |
unless $$self{'table'} = $params{'primary_table'}
|
|
20
|
0 |
31 |
unless ref $$self{'table'} eq 'DBR::Config::Table'
|
|
34
|
39 |
25 |
if @_ == 1
|
|
51
|
0 |
47 |
unless scalar @input
|
|
59
|
22 |
66 |
if (ref $next eq 'DBR::_LOP')
|
|
61
|
0 |
22 |
unless scalar @andparts or $pendct
|
|
63
|
11 |
11 |
if ($op eq 'And') { }
|
|
|
11 |
0 |
elsif ($op eq 'Or') { }
|
|
64
|
8 |
3 |
if ($next->only_contains_and) { }
|
|
77
|
9 |
2 |
if ($pendct)
|
|
100
|
0 |
47 |
if scalar @input
|
|
104
|
3 |
44 |
wantarray ? :
|
|
125
|
66 |
12 |
scalar @parts == 0 ? :
|
|
127
|
66 |
12 |
if ($last) { }
|
|
128
|
0 |
66 |
if $$ref{'fields'}{$part}
|
|
130
|
0 |
66 |
unless my $field = $cur_table->get_field($part)
|
|
131
|
0 |
66 |
unless my $value = $field->makevalue($rawval)
|
|
133
|
0 |
66 |
unless my $out = 'DBR::Query::Part::Compare'->new('field', $field, 'value', $value)
|
|
142
|
3 |
9 |
if ($$ref{'been_here'}) { }
|
|
148
|
0 |
9 |
unless my $relation = $cur_table->get_relation($part)
|
|
149
|
0 |
9 |
unless my $maptable = $relation->maptable
|
|
154
|
9 |
0 |
if ($relation->is_same_schema and $relation->is_to_one)
|
|
155
|
0 |
9 |
if $$self{'aliascount'} > 24
|
|
157
|
6 |
3 |
unless $cur_table->alias
|
|
177
|
0 |
65 |
unless ref $ref eq 'HASH'
|
|
181
|
9 |
56 |
if ($$ref{'kids'})
|
|
188
|
0 |
9 |
unless my $table = $$kid{'table'}
|
|
189
|
0 |
9 |
unless my $prevtable = $$kid{'prevtable'}
|
|
191
|
0 |
9 |
unless my $field = $relation->mapfield
|
|
192
|
0 |
9 |
unless my $prevfield = $relation->field
|
|
197
|
9 |
0 |
if $prevalias
|
|
198
|
9 |
0 |
if $alias
|
|
200
|
9 |
0 |
if ($relation->is_same_schema and $relation->is_to_one) { }
|
|
202
|
0 |
9 |
unless $prevalias
|
|
203
|
0 |
9 |
unless $alias
|
|
207
|
0 |
9 |
unless my $where = $self->_reljoin($kid, $tables)
|
|
210
|
0 |
9 |
unless my $join = 'DBR::Query::Part::Join'->new($field, $prevfield)
|
|
215
|
0 |
0 |
unless my $where = $self->_reljoin($kid, \@tables)
|
|
218
|
0 |
0 |
unless ($relation->is_same_schema)
|
|
219
|
0 |
0 |
unless $instance = $table->schema->get_instance($instance->class)
|
|
222
|
0 |
0 |
unless my $query = 'DBR::Query::Select'->new('instance', $instance, 'session', $$self{'session'}, 'fields', [$field], 'tables', \@tables, 'where', $where)
|
|
231
|
0 |
0 |
unless my $subquery = 'DBR::Query::Part::Subquery'->new($prevfield, $query, $runflag)
|
|
239
|
48 |
17 |
if ($$ref{'fields'})
|
|
244
|
12 |
54 |
if $alias
|
|
249
|
56 |
9 |
wantarray ? :
|