Branch Coverage

blib/lib/DBI/Gofer/Request.pm
Criterion Covered Total %
branch 14 44 31.8


line true false branch
53 124 7014 if $flags
59 124 7014 $dbh->{'ReadOnly'} ? :
72 328 0 if (my $dbh_method_call = $self->dbh_method_call)
75 270 58 if $method and $method =~ /$statement_method_regex/
84 90 328 if (my $flags = $self->flags)
85 90 0 if $flags & 3
94 44 226 if /^ \s* SELECT \b /imsx
102 226 if @statements == grep({not / \b FOR \s+ UPDATE \b /imsx if /^ \s* SELECT \b /imsx;} @statements)
106 0 0 if ($context and %$context)
113 0 0 if defined $pass
115 0 0 if ($attr)
116 0 0 unless $attr
117 0 0 if exists $tmp->{'Password'}
122 0 0 if (my $flags = $self->flags)
126 0 0 if (my $dbh_attr = $self->dbh_attributes)
127 0 0 if @$dbh_attr
136 0 0 if (my $lii_args = $self->dbh_last_insert_id_args)
140 0 0 unless $self->sth_method_calls
146 0 0 if (my $sth_attr = $self->sth_result_attr)
147 0 0 if %$sth_attr
160 0 0 if (my $flags = $self->flags)
167 0 0 unless $self->sth_method_calls