| line |
l |
!l&&r |
!l&&!r |
condition |
|
336
|
1500 |
31431 |
0 |
$attrs->{'result_class'} || $source->result_class |
|
440
|
1442 |
6998 |
1 |
!defined($_[0]) || ref $_[0] ne '' |
|
457
|
0 |
0 |
1 |
not defined $_[$i] or ref $_[$i] ne '' |
|
467
|
161 |
0 |
5552 |
!defined($call_cond) || ref $call_cond eq 'HASH' && !keys(%$call_cond) || ref $call_cond eq 'ARRAY' && !@$call_cond |
|
508
|
265 |
0 |
67199 |
exists $old_attrs->{$_} or exists $call_attrs->{$_} |
|
587
|
1514 |
161484 |
0 |
$attrs->{$key} || () |
|
593
|
1636 |
599 |
80443 |
@$as || @$sel |
|
620
|
12 |
9 |
0 |
$dark_sel_dumper ||= do {
require Data::Dumper::Concise;
Data::Dumper::Concise::DumperObject()->Indent(0)
} |
|
656
|
0 |
0 |
43490 |
ref $_ eq 'ARRAY' && !@$_ || ref $_ eq 'HASH' && !keys(%$_) |
|
709
|
0 |
1 |
0 |
$attr || () |
|
831
|
0 |
0 |
18 |
$crosstable or ref $rel_cond ne 'HASH' |
|
881
|
1843 |
1140 |
0 |
$ci ||= $self->result_source->columns_info |
|
1024
|
6940 |
3788 |
0 |
$self->{'cursor'} ||= do {
my $attrs = $self->_resolved_attrs;
$self->result_source->storage->select($attrs->{'from'}, $attrs->{'select'}, $attrs->{'where'}, $attrs)
} |
|
1270
|
1611 |
5216 |
2000 |
$fetch_all || $attrs->{'order_by'} |
|
1326
|
1615 |
0 |
7203 |
$did_fetch_all or @{[] unless $rows;} |
|
1328
|
72 |
4699 |
0 |
$cursor ||= $self->cursor |
|
1341
|
293 |
0 |
130 |
$aliastypes->{'multiplying'}{$sel_alias} or $aliastypes->{'premultiplied'}{$sel_alias} |
|
1369
|
3154 |
4632 |
0 |
$self->{'_result_inflator'}{'cref'} ||= do {
$self->throw_exception("Inflator $res_class does not provide an inflate_result() method") unless $res_class->can('inflate_result')
} |
|
1439
|
51 |
0 |
172 |
$self->{'_result_inflator'}{'is_hri'} || $self->{'_result_inflator'}{'is_core_row'} |
|
1488
|
184 |
26 |
56 |
$did_fetch_all || !$attrs->{'collapse'} |
|
1740
|
0 |
0 |
3 |
$1 || $2 || $3 |
|
1748
|
3 |
0 |
137 |
$sel_index->{$_} || $_ |
|
1896
|
2 |
3 |
597 |
defined $existing_group_by || ref $attrs->{'from'} ne 'ARRAY' || $self->_has_resolved_attr('rows', 'offset') |
|
1917
|
0 |
10 |
571 |
ref $attrs->{'from'}[0] ne 'HASH' || ref $attrs->{'from'}[0]{$attrs->{'from'}[0]{-'alias'}} |
|
|
21 |
10 |
571 |
$needs_subq ||= ref $attrs->{'from'}[0] ne 'HASH' || ref $attrs->{'from'}[0]{$attrs->{'from'}[0]{-'alias'}} |
|
1933
|
31 |
0 |
0 |
$rsrc->_identifying_column_set || $self->throw_exception(sprintf(q[Unable to perform complex resultset %s() without an identifying set of columns on source '%s'], $op, $rsrc->source_name)) |
|
1965
|
2 |
3 |
5 |
$existing_group_by or keys %{{} unless $join_classifications->{'multiplying'};} |
|
2300
|
3 |
1 |
102952 |
$_->{'is_rel'} ||= $$rel_info{$_->{'name'}} && (ref $data->[$i][$_->{'pos'}] eq 'ARRAY' || ref $data->[$i][$_->{'pos'}] eq 'HASH' || defined &blessed($data->[$i][$_->{'pos'}]) && $data->[$i][$_->{'pos'}]->isa('DBIx::Class::Row')) && 1 |
|
2332
|
0 |
1 |
7 |
$$colinfo{$colnames->[$_]}{'seen_null'} ||= !defined($data->[$i][$_]) |
|
2339
|
127 |
97 |
0 |
$colinfo->{$_} ||= do {
$self->throw_exception("Column '${_}' must be present in supplied explicit column list") if $data_start;
push @$colnames, $_;
+{'pos', $#$colnames, 'name', $_}
} |
|
2350
|
5 |
7 |
212 |
$colinfo->{$_}{'is_rel'} ||= $rel_info->{$_} && (ref $data->[$i]{$_} eq 'ARRAY' || ref $data->[$i]{$_} eq 'HASH' || defined &blessed($data->[$i]{$_}) && $data->[$i]{$_}->isa('DBIx::Class::Row')) && 1 |
|
2381
|
0 |
1 |
31 |
$colinfo->{$_}{'seen_null'} ||= !defined($data->[$i]{$_}) |
|
2480
|
1 |
9 |
0 |
$main_proto_rs ||= $rsrc->resultset->search($main_proto) |
|
2647
|
2067 |
1613 |
8677 |
$implied_data || () |
|
3436
|
0 |
9 |
207 |
$attrs->{'from'} and ref $attrs->{'from'} ne 'ARRAY' or $self->_has_resolved_attr(@force_subq_attrs) |
|
3532
|
10084 |
96 |
16700 |
$attrs->{$_} or $$attrs{"+$_"} |
|
3562
|
1445 |
651 |
35013 |
ref $_ || $_ =~ /\./ |
|
3597
|
551 |
0 |
8409 |
$attrs->{'join'} or $attrs->{'prefetch'} |
|
3629
|
2947 |
2 |
0 |
$attrs->{$attr} || () |
|
3705
|
0 |
36 |
12 |
$is_multi ||= !$$t{-'is_single'} |
|
3708
|
3 |
7 |
38 |
$attrs->{'_main_source_premultiplied'} ||= $is_multi |
|
3712
|
7 |
0 |
318 |
$attrs->{'_main_source_premultiplied'} or &List::Util::first(sub {
not $_->[0]{-'is_single'};
}
, @fromlist) |
|
3754
|
230 |
146 |
8583 |
$attrs->{'collapse'} || grep({$_ =~ /\./;} @{$$attrs{'as'};}) |
|
3868
|
778 |
0 |
87 |
$best_candidate->{'score'} == 0 or exists $seen_keys->{$import_key} |
|
3890
|
17012 |
185 |
0 |
$hm ||= do {
require Hash::Merge;
my $hm = 'Hash::Merge'->new;
$hm->specify_behavior({'SCALAR', {'SCALAR', sub {
my($defl, $defr) = map({defined $_;} @_[0, 1]);
if ($defl xor $defr) {
return [$defl ? $_[0] : $_[1]];
}
elsif (not $defl) {
return [];
}
else {
return [$_[0], $_[1]];
} ;
}
, 'ARRAY', sub {
return $_[1] unless defined $_[0];
'???';
return [$_[0], @{$_[1];}];
}
, 'HASH', sub {
return [] unless defined $_[0] or keys %{$_[1];};
return [$_[1]] unless defined $_[0];
return [$_[0]] unless keys %{$_[1];};
return [$_[0], $_[1]];
}
}, 'ARRAY', {'SCALAR', sub {
return $_[0] unless defined $_[1];
'???';
return [@{$_[0];}, $_[1]];
}
, 'ARRAY', sub {
return $_[1] unless my(@ret) = @{$_[0];};
return [@ret, @{$_[1];}];
my(%idx) = map({$_, 1;} @ret);
push @ret, grep({not defined $idx{$_};} @{$_[1];});
\@ret;
}
, 'HASH', sub {
return [$_[1]] unless @{$_[0];};
return $_[0] unless keys %{$_[1];};
'???';
return [@{$_[0];}, $_[1]];
}
}, 'HASH', {'SCALAR', sub {
return [] unless keys %{$_[0];} or defined $_[1];
return [$_[0]] unless defined $_[1];
return [$_[1]] unless keys %{$_[0];};
return [$_[0], $_[1]];
}
, 'ARRAY', sub {
return [] unless keys %{$_[0];} or @{$_[1];};
return [$_[0]] unless @{$_[1];};
return $_[1] unless keys %{$_[0];};
'???';
return [$_[0], @{$_[1];}];
}
, 'HASH', sub {
return [] unless keys %{$_[0];} or keys %{$_[1];};
return [$_[0]] unless keys %{$_[1];};
return [$_[1]] unless keys %{$_[0];};
return [$_[0]] if $_[0] eq $_[1];
return [$_[0], $_[1]];
}
}}, 'DBIC_RS_ATTR_MERGER');
$hm
} |
|
3918
|
0 |
0 |
867 |
defined $_[0] or keys %{$_[1];} |
|
3946
|
0 |
0 |
0 |
keys %{$_[0];} or defined $_[1] |
|
3952
|
0 |
0 |
0 |
keys %{$_[0];} or @{$_[1];} |
|
3959
|
0 |
0 |
0 |
keys %{$_[0];} or keys %{$_[1];} |