| line |
true |
false |
branch |
|
42
|
0 |
0 |
if (defined $arguments[0] and UNIVERSAL::isa($arguments[0], 'DBI::db')) { }
|
|
45
|
0 |
0 |
if @arguments
|
|
48
|
0 |
0 |
unless defined $arguments[3] and exists $arguments[3]{'PrintError'}
|
|
50
|
0 |
0 |
unless $no_raiseerror or defined $arguments[3] and exists $arguments[3]{'RaiseError'}
|
|
56
|
0 |
0 |
unless $$self{'dbh'}
|
|
86
|
0 |
0 |
ref $self ? :
|
|
96
|
0 |
0 |
unless $$query =~ /\(\?\?\)/
|
|
98
|
0 |
0 |
$$self{'dbd'} =~ /mysql/ ? :
|
|
101
|
0 |
0 |
$1 eq '(??)' ? :
|
|
102
|
0 |
0 |
if $omniholders++
|
|
121
|
0 |
0 |
unless ($$self{'dont_disconnect'})
|
|
124
|
0 |
0 |
if defined $$self{'dbh'}
|
|
128
|
0 |
0 |
unless $cause =~ /DESTROY/
|
|
149
|
0 |
0 |
if (defined(my $i = (grep(($$old[$_][0] eq $query), 0 .. $#$old))[0])) { }
|
|
153
|
0 |
0 |
unless (eval {
do {
$sth = $$self{'dbh'}->prepare($query)
}
})
|
|
154
|
0 |
0 |
if ($@)
|
|
172
|
0 |
0 |
unless (eval {
do {
$sth->execute(@binds)
}
})
|
|
173
|
0 |
0 |
if ($@)
|
|
196
|
0 |
0 |
unless ($$self{'dbi_version'} ||= 'DBI'->VERSION) >= 1.38
|
|
271
|
0 |
0 |
if defined $$self{'sth'}
|
|
287
|
0 |
0 |
if ($save and $keep)
|
|
298
|
0 |
0 |
if $_[0]{'dead'}
|
|
306
|
0 |
0 |
if ($cause) { }
|
|
337
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
338
|
0 |
0 |
$_[0]{'lc_columns'} ? :
|
|
339
|
0 |
0 |
wantarray ? :
|
|
343
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
351
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
356
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
358
|
0 |
0 |
if @_ > 1
|
|
363
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
364
|
0 |
0 |
if wantarray
|
|
369
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
370
|
0 |
0 |
unless my $row = $_[0]{'st'}{'sth'}->fetchrow_arrayref
|
|
375
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
376
|
0 |
0 |
$_[0]{'lc_columns'} ? :
|
|
382
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
384
|
0 |
0 |
unless my $values = $_[0]->array
|
|
385
|
0 |
0 |
if @keys != @$values
|
|
387
|
0 |
0 |
if wantarray
|
|
392
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
397
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
400
|
0 |
0 |
if ($class =~ /^:/)
|
|
405
|
0 |
0 |
if ($class->can('new_from_dbix_simple'))
|
|
408
|
0 |
0 |
if ($class->can('new'))
|
|
420
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
421
|
0 |
0 |
if wantarray
|
|
426
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
427
|
0 |
0 |
if wantarray
|
|
432
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
436
|
0 |
0 |
wantarray ? :
|
|
440
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
441
|
0 |
0 |
if wantarray
|
|
446
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
450
|
0 |
0 |
wantarray ? :
|
|
454
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
457
|
0 |
0 |
if ($class =~ /^:/)
|
|
462
|
0 |
0 |
if ($class->can('new_from_dbix_simple'))
|
|
463
|
0 |
0 |
if wantarray
|
|
466
|
0 |
0 |
if ($class->can('new'))
|
|
467
|
0 |
0 |
if wantarray
|
|
477
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
479
|
0 |
0 |
unless defined $keyname
|
|
485
|
0 |
0 |
wantarray ? :
|
|
489
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
497
|
0 |
0 |
wantarray ? :
|
|
501
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
502
|
0 |
0 |
if wantarray
|
|
507
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
512
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
515
|
0 |
0 |
ref $_[0] ? :
|
|
528
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
530
|
0 |
0 |
ref $_[0] ? :
|
|
535
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
539
|
0 |
0 |
defined $type && length $type ? :
|
|
541
|
0 |
0 |
if ($type eq 'box' or $type eq 'table')
|
|
543
|
0 |
0 |
unless $text_table
|
|
548
|
0 |
0 |
$box ? :
|
|
|
0 |
0 |
$box ? :
|
|
555
|
0 |
0 |
$box ? :
|
|
|
0 |
0 |
$box ? :
|
|
560
|
0 |
0 |
if $type ne 'neat'
|
|
565
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|
|
573
|
0 |
0 |
if ref $_[0]{'st'} eq 'DBIx::Simple::DeadObject'
|