Condition Coverage

blib/lib/DBIx/QueryLog.pm
Criterion Covered Total %
condition 104 156 66.6


and 3 conditions

line !l l&&!r l&&r condition
124 15 0 0 $probability and int((rand()) * $probability) % $probability != 0
145 9 0 6 $$container{'skip_bind'} || $ENV{'DBIX_QUERYLOG_SKIP_BIND'} and @params
184 12 0 0 $probability and int((rand()) * $probability) % $probability != 0
195 11 0 1 $$container{'skip_bind'} || $ENV{'DBIX_QUERYLOG_SKIP_BIND'} and @bind
225 0 0 330 $$dbh{'Driver'}{'Name'} ne 'mysql' and $$dbh{'Driver'}{'Name'} ne 'Pg'
0 8 322 $$dbh{'Driver'}{'Name'} eq 'SQLite' && 1 && !@bind
0 322 8 $$dbh{'Driver'}{'Name'} ne 'mysql' and $$dbh{'Driver'}{'Name'} ne 'Pg' and not $$dbh{'Driver'}{'Name'} eq 'SQLite' && 1 && !@bind
230 122 24 176 $probability and int((rand()) * $probability) % $probability != 0
241 146 0 0 $$container{'skip_bind'} || $ENV{'DBIX_QUERYLOG_SKIP_BIND'} and @bind
294 4 0 10 defined $args{'print'} and $args{'print'}
314 0 0 0 $pos >= 6 && substr($ret, $pos - 6, 6) =~ /\A[Ll](?:IMIT|imit) \z/
321 0 0 0 defined $type and $$dbh{'Driver'}{'Name'} eq 'Pg'
0 0 0 defined $type and $$dbh{'Driver'}{'Name'} eq 'Pg' and $type == 0
369 46 238 0 not $quote_char and $s eq ' ' || $s eq "\n" || $s eq "\t" || $s eq "\r"
1 133 33 not $before_escape and $quote_char
134 32 1 not $before_escape and $quote_char and $s eq '\\'
376 1 4 7 not $before_escape and $s eq $quote_char
390 127 0 4 $s eq ')' || $s eq ',' and substr($buff, -1, 1) eq ' '

or 2 conditions

line l !l condition
164 1 5 $$sth{'private_DBIx_QueryLog_params'} ||= []
165 1 5 $$sth{'private_DBIx_QueryLog_attrs'} ||= []
166 0 6 $attr || 0
257 2 12 $types ||= []
306 23 157 $types ||= []
345 171 0 $bind_params ||= []

or 3 conditions

line l !l&&r !l&&!r condition
47 2 22 0 $st_execute ||= $class->_st_execute(sub ; )
48 2 22 0 $st_bind_param ||= $class->_st_bind_param(sub ; )
49 2 22 0 $db_do ||= $class->_db_do(sub ; )
51 2 22 0 $selectall_arrayref ||= $class->_select_array(sub ; )
52 2 22 0 $selectrow_arrayref ||= $class->_select_array(sub ; )
53 2 22 0 $selectrow_array ||= $class->_select_array(sub ; , 1)
123 0 0 15 $$container{'probability'} || $ENV{'DBIX_QUERYLOG_PROBABILITY'}
141 1 1 13 $$container{'explain'} or $ENV{'DBIX_QUERYLOG_EXPLAIN'}
145 4 2 9 $$container{'skip_bind'} || $ENV{'DBIX_QUERYLOG_SKIP_BIND'}
183 0 0 12 $$container{'probability'} || $ENV{'DBIX_QUERYLOG_PROBABILITY'}
191 3 3 6 $$container{'explain'} or $ENV{'DBIX_QUERYLOG_EXPLAIN'}
195 1 0 11 $$container{'skip_bind'} || $ENV{'DBIX_QUERYLOG_SKIP_BIND'}
229 100 100 122 $$container{'probability'} || $ENV{'DBIX_QUERYLOG_PROBABILITY'}
237 3 3 140 $$container{'explain'} or $ENV{'DBIX_QUERYLOG_EXPLAIN'}
241 0 0 146 $$container{'skip_bind'} || $ENV{'DBIX_QUERYLOG_SKIP_BIND'}
278 0 0 14 $$dbh{'Driver'}{'Name'} eq 'mysql' or $$dbh{'Driver'}{'Name'} eq 'Pg'
308 0 0 180 $$dbh{'Driver'}{'Name'} eq 'mysql' or $$dbh{'Driver'}{'Name'} eq 'Pg'
312 0 0 0 $limit_flag ||= do { my $pos = pos $ret; $pos >= 6 && substr($ret, $pos - 6, 6) =~ /\A[Ll](?:IMIT|imit) \z/ ? 1 : 0 }
342 1 1 171 $$container{'threshold'} || $ENV{'DBIX_QUERYLOG_THRESHOLD'}
343 171 0 2 not $threshold or $time > $threshold
350 8 0 179 $SKIP_PKG_MAP{$c[0]} or $c[0] =~ /^DB[DI]::/
357 5 2 164 $$container{'skip_bind'} or $ENV{'DBIX_QUERYLOG_SKIP_BIND'}
362 2 0 169 $$container{'compact'} or $ENV{'DBIX_QUERYLOG_COMPACT'}
369 10 1 141 $s eq ' ' || $s eq "\n" || $s eq "\t" || $s eq "\r"
16 4 167 $s eq q['] or $s eq '"'
20 0 167 $s eq q['] or $s eq '"' or $s eq '`'
390 2 2 127 $s eq ')' || $s eq ','
405 2 0 169 $$container{'useqq'} or $ENV{'DBIX_QUERYLOG_USEQQ'}
412 1 0 170 $$container{'color'} || $ENV{'DBIX_QUERYLOG_COLOR'}
418 1 1 169 $$container{'show_data_source'} || $ENV{'DBIX_QUERYLOG_SHOW_DATASOURCE'}