| line |
true |
false |
branch |
|
36
|
0 |
3 |
if $@ |
|
84
|
0 |
0 |
unless my($col) = grep({$_ eq $name;} $class->columns('All')) |
|
103
|
0 |
401 |
ref $s ? : |
|
107
|
262 |
139 |
if $Class::DBI::Lite::Live_Objects{$key} |
|
190
|
736 |
0 |
if (my $type = shift @_) { } |
|
192
|
0 |
736 |
unless $type =~ /^(All|Essential|Primary)$/ |
|
193
|
20 |
716 |
if (my(@cols) = @_) { } |
|
199
|
0 |
716 |
unless $s->_meta->{'columns'}{$type} |
|
237
|
5 |
120 |
ref $_[0] ? : |
|
241
|
252 |
125 |
if exists $data->{$_} |
|
244
|
0 |
125 |
ref $s ? : |
|
257
|
252 |
125 |
if exists $pre_obj->{$_} and defined $pre_obj->{$_} |
|
274
|
0 |
125 |
unless my $id = $s->get_last_insert_id |
|
285
|
0 |
125 |
if (my $trans_error = $@) { } |
|
288
|
0 |
0 |
if (my $rollback_error = $@) { } |
|
312
|
0 |
3 |
unless ref $s |
|
314
|
1 |
2 |
unless $s->{'__Changed'} and keys %{$$s{'__Changed'};} |
|
349
|
0 |
2 |
if (my $trans_error = $@) { } |
|
352
|
0 |
0 |
if (my $rollback_error = $@) { } |
|
377
|
0 |
125 |
unless ref $s |
|
400
|
0 |
125 |
if (my $trans_error = $@) { } |
|
403
|
0 |
0 |
if (my $rollback_error = $@) { } |
|
428
|
151 |
12 |
$sql ? : |
|
441
|
0 |
163 |
ref $s ? : |
|
442
|
148 |
15 |
if (wantarray) { } |
|
536
|
1 |
0 |
ref $_[0] ? : |
|
537
|
1 |
0 |
ref $_[0] ? : |
|
538
|
1 |
0 |
$attr ? : |
|
539
|
1 |
0 |
$attr ? : |
|
540
|
1 |
0 |
$attr ? : |
|
555
|
1 |
0 |
ref $_[0] ? : |
|
556
|
1 |
0 |
ref $_[0] ? : |
|
557
|
0 |
1 |
$attr ? : |
|
558
|
0 |
1 |
$attr ? : |
|
559
|
0 |
1 |
$attr ? : |
|
612
|
120 |
0 |
ref $_[0] ? : |
|
632
|
0 |
22 |
if grep {$_ eq $handler;} @$handlers |
|
644
|
524 |
12 |
unless my(@handlers) = @{$s->_meta->{'triggers'}{$event};} |
|
648
|
0 |
13 |
unless eval {
do {
&$handler($s, @_);
1
}
} |
|
718
|
303 |
0 |
if (my($col) = grep({$_ eq $name;} $s->columns('All'))) { } |
|
720
|
0 |
303 |
unless exists $s->{$col} |
|
721
|
5 |
298 |
if (@_) { } |
|
725
|
1 |
4 |
if $newval eq $s->{$name} |
|
740
|
0 |
0 |
ref $s ? : |
|
751
|
0 |
263 |
if ($s->{'__Changed'} and keys %{$$s{'__Changed'};}) |
|
757
|
263 |
0 |
unless $s->db_Main->{'AutoCommit'} |