| line |
true |
false |
branch |
|
28
|
3 |
2 |
unless (%SqlConfig) |
|
39
|
1 |
4 |
if (ref $class) |
|
42
|
0 |
1 |
unless (UNIVERSAL::isa($class, 'SQL::SqlObject')) |
|
56
|
1 |
4 |
if $self->can('_init') |
|
68
|
0 |
5 |
unless (@_ > 1) |
|
77
|
0 |
5 |
if ($_ = ref $_[0]) { } |
|
|
1 |
4 |
elsif (@_) { } |
|
79
|
0 |
0 |
if (/HASH/) { } |
|
|
0 |
0 |
elsif (/ARRAY/) { } |
|
105
|
0 |
1 |
if ($_[0] =~ /^-/) { } |
|
108
|
0 |
0 |
if (@_ % 2) |
|
137
|
3 |
26 |
if (exists $$args{$name}) |
|
144
|
4 |
22 |
if (ref $class and defined $class->$name) |
|
151
|
7 |
15 |
if ($SqlConfig{'ARGS'}[$arg_id][2]) |
|
155
|
3 |
4 |
if (ref $env) { } |
|
159
|
3 |
0 |
unless exists $ENV{$_} |
|
167
|
0 |
4 |
if (exists $ENV{$env}) |
|
176
|
14 |
8 |
if ($SqlConfig{'ARGS'}[$arg_id][3] and $_ = $SqlConfig{$SqlConfig{'ARGS'}[$arg_id][3]}) |
|
193
|
5 |
6 |
if $#_ |
|
195
|
5 |
3 |
if $#_ |
|
197
|
5 |
6 |
if $#_ |
|
199
|
5 |
6 |
if $#_ |
|
201
|
1 |
5 |
if $#_ |
|
202
|
0 |
0 |
if $#_ |
|
205
|
0 |
0 |
unless ($_[0]->is_connected) |
|
218
|
0 |
0 |
if (@_) { } |
|
|
0 |
0 |
elsif ($$self{'__connection_args'}) { } |
|
233
|
0 |
0 |
if $self->is_connected |
|
238
|
0 |
0 |
if $err |
|
252
|
0 |
0 |
if $name |
|
253
|
0 |
0 |
if $dsn |
|
254
|
0 |
0 |
if $pre |
|
256
|
0 |
0 |
unless defined $name |
|
257
|
0 |
0 |
unless defined $dsn or $dsn = $self->db_dsn |
|
259
|
0 |
0 |
unless defined $pre |
|
262
|
0 |
0 |
if ($SqlConfig{'OTHER_ARGS'}) |
|
264
|
0 |
0 |
if (ref $SqlConfig{'OTHER_ARGS'}) { } |
|
268
|
0 |
0 |
unless my $val = $self->$_ |
|
278
|
0 |
0 |
if defined $val |
|
290
|
0 |
5 |
if (exists $$self{'dbh'}) |
|
300
|
0 |
0 |
unless (@_ == 2) |
|
312
|
0 |
0 |
unless defined $href |
|
313
|
0 |
0 |
wantarray ? : |
|
318
|
0 |
0 |
if (@_ < 2 or @_ > 3) |
|
325
|
0 |
0 |
if ($cref) { } |
|
337
|
0 |
0 |
wantarray ? : |
|
343
|
0 |
0 |
unless (@_ == 2) |
|
352
|
0 |
0 |
if (my $err = $self->Error) |
|
363
|
0 |
0 |
wantarray ? : |
|
371
|
0 |
0 |
unless (@_ == 2) |
|
380
|
0 |
0 |
if (my $err = $self->Error) |
|
398
|
0 |
0 |
unless (@_ == 2) |
|
407
|
0 |
0 |
if (my $err = $self->Error) |
|
419
|
0 |
0 |
wantarray ? : |
|
425
|
0 |
0 |
unless (@_ > 1 and @_ < 4) |
|
433
|
0 |
0 |
if defined $href and ref $href |
|
439
|
0 |
0 |
if ($err = $self->Error) |
|
448
|
0 |
0 |
unless (@_ == 3) |
|
461
|
0 |
0 |
if ($err = $self->Error) |
|
469
|
0 |
0 |
unless (@_ > 2 and @_ < 4) |
|
479
|
0 |
0 |
if ($whref) { } |
|
493
|
0 |
0 |
if ($err) |
|
499
|
0 |
0 |
if $found |
|
504
|
0 |
0 |
if ($err) |
|
516
|
0 |
0 |
unless (@_ > 2 and @_ < 5) |
|
533
|
0 |
0 |
if ($err) |
|
545
|
0 |
0 |
unless (@_ > 2 and @_ < 6) |
|
555
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ == 2) { } |
|
558
|
0 |
0 |
if (ref $_[0]) { } |
|
580
|
0 |
0 |
if ($whref) { } |
|
593
|
0 |
0 |
if ($err) |
|
599
|
0 |
0 |
if $found |
|
607
|
0 |
0 |
if ($err) |
|
619
|
0 |
0 |
unless (@_ > 2 and @_ < 5) |
|
629
|
0 |
0 |
if defined $whref and ref $whref |
|
635
|
0 |
0 |
if ($err) |
|
654
|
0 |
0 |
if $v =~ /^\s*$/ |
|
655
|
0 |
0 |
if $v =~ /[^0-9]/ and not $v =~ /^null$/i |
|
662
|
0 |
0 |
unless @_ > 2 |
|
679
|
0 |
0 |
unless @_ > 2 |
|
696
|
0 |
0 |
unless @_ > 1 |
|
699
|
0 |
0 |
if $href == undef |
|
711
|
0 |
0 |
unless @_ > 2 |
|
722
|
0 |
0 |
if (ref $whref) |
|
740
|
0 |
0 |
unless (my $func = $1) |
|
749
|
0 |
0 |
if (my $dbh = eval {
do {
$self->dbh
}
}) |
|
754
|
0 |
0 |
if ($@) |
|
758
|
0 |
0 |
ref $_[0] && UNIVERSAL::isa($_[0], 'SQL::SqlObject') ? : |