| line |
true |
false |
branch |
|
70
|
34 |
0 |
if (@_ > 1) |
|
92
|
0 |
0 |
if @_ > 1 |
|
102
|
0 |
0 |
if @_ > 1 |
|
109
|
0 |
0 |
if defined $log_fh |
|
110
|
0 |
0 |
if -e "$log_file" |
|
112
|
0 |
0 |
unless (defined $log_fh) |
|
121
|
0 |
0 |
unless defined $log_fh |
|
127
|
7082 |
0 |
unless defined $log_fh |
|
130
|
0 |
0 |
unless $no_timestamp |
|
131
|
0 |
0 |
unless $no_timestamp |
|
144
|
0 |
172 |
if ($monitor_sql or $dump_stack_on_connect) |
|
149
|
0 |
172 |
if ($dump_stack_on_connect) |
|
156
|
172 |
0 |
if (ref $params[3] and ref($params[3]) =~ /HASH/) |
|
164
|
516 |
172 |
defined $_ ? : |
|
181
|
103 |
0 |
if ($handle->isa('UR::DBI::db')) { } |
|
|
0 |
0 |
elsif ($handle->isa('UR::DBI::st')) { } |
|
191
|
0 |
103 |
unless ($data_source) |
|
203
|
22 |
0 |
if ($handle->isa('UR::DBI::db')) { } |
|
|
0 |
0 |
elsif ($handle->isa('UR::DBI::st')) { } |
|
213
|
0 |
22 |
unless ($data_source) |
|
232
|
5518 |
0 |
if (@disable_dump_and_explain) { } |
|
271
|
3172 |
369 |
if ref $_[0] |
|
284
|
0 |
3541 |
if ($dbh and length $explain_sql_match) |
|
286
|
0 |
0 |
if ($val =~ /$explain_sql_match/gi) |
|
287
|
0 |
0 |
$val ne $sql ? : |
|
290
|
0 |
0 |
if ($monitor_sql) { } |
|
296
|
0 |
0 |
if ($explain_sql_callstack) |
|
299
|
0 |
0 |
if ($UR::DBI::explained_queries{$sql}) { } |
|
312
|
0 |
3541 |
if ($monitor_sql) { } |
|
|
0 |
7082 |
elsif ($monitor_dml and not $sql =~ /^\s*select/i) { } |
|
314
|
0 |
0 |
if ($monitor_sql > 1) |
|
337
|
0 |
3541 |
if ($monitor_sql) { } |
|
|
0 |
3541 |
elsif ($monitor_dml == 2) { } |
|
356
|
1313 |
5518 |
if @disable_dump_and_explain |
|
357
|
0 |
5518 |
if ($_fetching) |
|
362
|
0 |
5518 |
if ($monitor_sql) |
|
363
|
0 |
0 |
if ($fetch_timing_arrayref and @$fetch_timing_arrayref == 0) { } |
|
|
0 |
0 |
elsif ($monitor_every_fetch) { } |
|
375
|
1313 |
5518 |
if @disable_dump_and_explain |
|
380
|
0 |
5518 |
if ($monitor_sql) |
|
381
|
0 |
0 |
if ($monitor_every_fetch or @$fetch_timing_arrayref == 1) |
|
385
|
2094 |
3424 |
if (@$fetch_timing_arrayref == 1) |
|
405
|
4020 |
2718 |
unless ($fetch_timing_arrayref) |
|
413
|
0 |
2718 |
if ($monitor_sql and $sth->{'Statement'} =~ /select/i) |
|
420
|
2093 |
625 |
if (@$fetch_timing_arrayref) { } |
|
424
|
0 |
2093 |
if ($print_fetch_summary) |
|
430
|
0 |
625 |
if ($print_fetch_summary) |
|
441
|
0 |
40 |
unless defined $time |
|
442
|
0 |
40 |
if ($monitor_sql and $sql =~ /select/i) |
|
473
|
2396 |
1145 |
if (@_) |
|
476
|
4738 |
78 |
defined $_ ? : |
|
477
|
0 |
4816 |
scalar grep({$_;} map({128 & ord $_;} split(//, substr($_, 0, 64), 0))) ? : |
|
528
|
0 |
2759 |
if @disable_dump_and_explain |
|
529
|
1110 |
1649 |
unless $sql =~ /select/i |
|
530
|
0 |
1649 |
if $_print_check_for_slow_query |
|
531
|
0 |
1649 |
if (length $explain_sql_slow and $time >= $explain_sql_slow) |
|
533
|
0 |
0 |
if ($monitor_sql or $monitor_dml and not $sql =~ /^\s*select/i) { } |
|
540
|
0 |
0 |
if ($explain_sql_callstack) |
|
543
|
0 |
0 |
if ($UR::DBI::explained_queries{$sql}) { } |
|
564
|
0 |
0 |
if ($^O eq 'MSWin32' or $^O eq 'cygwin') |
|
568
|
0 |
0 |
unless $dbh->do($UR::DBI::EXPLAIN_PLAN_DML . "\n" . $sql) |
|
610
|
63 |
103 |
if ($UR::DBI::no_commit) { } |
|
619
|
0 |
103 |
if ('UR::DataSource'->use_dummy_autogenerated_ids) { } |
|
637
|
103 |
0 |
if ($rv) |
|
659
|
22 |
0 |
if ($rv) |
|
678
|
5 |
0 |
if ($self->{'AutoCommit'} == 0) |
|
689
|
0 |
5 |
if (defined $UR::DBI::common_dbh and $self eq $UR::DBI::common_dbh) |
|
710
|
0 |
2317 |
if ($sql =~ /^\s*(commit|rollback)\s*$/i) { } |
|
712
|
0 |
0 |
unless ($sql =~ /^(commit|rollback)$/i) |
|
716
|
0 |
0 |
if ($sth = $self->SUPER::prepare(@_)) |
|
718
|
0 |
0 |
if ($1 =~ /commit/i) { } |
|
|
0 |
0 |
elsif ($1 =~ /rollback/) { } |
|
730
|
0 |
2317 |
unless $sth = $self->SUPER::prepare(@_) |
|
806
|
10 |
0 |
if wantarray |
|
844
|
0 |
40137 |
if &Devel::GlobalDestruction::in_global_destruction() |
|
846
|
11700 |
28437 |
if (@_) |
|
865
|
0 |
2719 |
unless (defined $ret) |
|
876
|
414 |
2718 |
if (my $a = $sth->fetch_timing_arrayref) { } |
|
894
|
3132 |
0 |
if ($rv) |
|
896
|
0 |
3132 |
if (my $prev = $UR::DBI::prepared_commit{$sth}) |
|
900
|
0 |
3132 |
if (my $prev = $UR::DBI::prepared_rollback{$sth}) |
|
918
|
8 |
0 |
if wantarray |