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') ? : |