Branch Coverage

blib/lib/MySQL/Easy.pm
Criterion Covered Total %
branch 0 116 0.0


line true false branch
42 0 0 if $sub =~ /::(\w+)$/u
44 0 0 unless $$_self{'sth'}
45 0 0 unless $$_self{'sth'}->can($sub)
51 0 0 unless $$this{'sth'}
62 0 0 if ($wa) { }
72 0 0 if ($warn and not $err)
77 0 0 if ($err)
87 0 0 if ($err =~ /(?:MySQL server has gone away|Lost connection)/u)
88 0 0 if ($sub eq 'execute') { }
92 0 0 if --$tries > 0
102 0 0 $wa ? :
165 0 0 if $sub =~ /::(\w+)$/u
169 0 0 unless $handle->can($sub)
185 0 0 if @cargs and blessed($cargs[0]) and $cargs[0]->isa('MySQL::Easy::sth')
187 0 0 if (wantarray) { }
197 0 0 unless ($eval_result)
200 0 0 if ($err =~ /(?:MySQL server has gone away|Lost connection)/u)
201 0 0 if (blessed($oargs[0]))
202 0 0 if ($oargs[0]->isa('MySQL::Easy::sth')) { }
209 0 0 if --$tries > 0
212 0 0 if ($warn and not $err)
221 0 0 $wa ? :
244 0 0 unless $sth->execute
250 0 0 if (@warnings)
265 0 0 unless $$this{'dbase'}
266 0 0 if ref $$this{'dbase'} and $$this{'dbase'}->isa('DBI::db')
269 0 0 ref $args ? :
271 0 0 if $tr and $$this{'dbh'}
273 0 0 if (ref $args)
277 0 0 if ($this->can($f = "set_$k")) { }
291 0 0 unless @_
293 0 0 unless eval { do { $r = $this->ready($sql)->execute(@_); 1 } }
299 0 0 unless @_
307 0 0 unless @_
338 0 0 unless eval { do { $r = $this->selectcol_arrayref($query, undef, @_); 1 } }
341 0 0 wantarray ? :
350 0 0 unless eval { do { $r = $this->selectcol_arrayref($query, undef, @_); 1 } }
362 0 0 unless eval { do { $r = $this->selectrow_arrayref($query, undef, @_); 1 } }
365 0 0 wantarray ? :
388 0 0 if $$this{'dbh'}
395 0 0 if defined $$this{'dbh'} and $$this{'dbh'}->ping
398 0 0 unless $$this{'user'} and $$this{'pass'}
400 0 0 unless $$this{'host'}
401 0 0 unless $$this{'port'}
402 0 0 unless $$this{'dbase'}
403 0 0 unless $$this{'trace'}
405 0 0 if ($$this{'dbh'})
415 0 0 $$this{'raise'} ? :
0 0 $$this{'raise'} ? :
431 0 0 unless $$this{'dbh'}
442 0 0 if $ENV{$USER_ENV} and $ENV{$PASS_ENV}
447 0 0 unless -f $file
448 0 0 unless open $fh, $file
451 0 0 if /user\s*=\s*(.+)/u
452 0 0 if /password\s*=\s*(.+)/u
454 0 0 if $user and $pass
500 0 0 unless $sth->execute
501 0 0 unless $sth->bind_columns(@_)