| line |
l |
!l&&r |
!l&&!r |
condition |
|
33
|
0 |
0 |
0 |
&try(sub {
my($sql, @bind) = $self->sql;
'DBIx::DataModel::Statement' . "($sql // " . join(', ', @bind) . ')';
}
) || overload::StrVal($self) |
|
281
|
60 |
84 |
0 |
$sqla_args{'-columns'} ||= $meta_source->default_columns |
|
384
|
0 |
137 |
0 |
@args or $self->status < "sqlized" |
|
395
|
0 |
136 |
0 |
$self->{'args'}{'-dbi_prepare_method'} || $self->schema->dbi_prepare_method |
|
484
|
108 |
34 |
1 |
$cache_result_class{$_} ||= $self->_find_result_class($_) |
|
523
|
2 |
0 |
4 |
$should_wrap ||= !($sql =~ s/^SELECT\b.*?\bFROM\b/SELECT COUNT(*) FROM/i) |
|
748
|
5 |
4 |
0 |
$aliased_tables{$table_name} || $table_name |
|
754
|
9 |
0 |
0 |
$meta_schema->table($table_name) || &firstval(sub {
($_->{'db_name'} || '') eq $table_name;
}
, $meta_source, $meta_source->ancestors) || &firstval(sub {
uc($_->{'db_name'} || '') eq uc $table_name;
}
, $meta_source, $meta_source->ancestors) |
|
786
|
35 |
0 |
0 |
ref $schema || $schema |
|
797
|
0 |
34 |
34 |
$is_loaded ||= &try(sub {
&load($class);
1;
}
, &catch(sub {
die $_ if not $_ =~ /^Can't locate(?! object method)/;
}
)) |