Branch Coverage

blib/lib/DBD/Mock/st.pm
Criterion Covered Total %
branch 102 120 85.0


line true false branch
33 0 2 unless UNIVERSAL::isa($val, 'SCALAR')
38 0 2 unless $max_len > 0
58 2 0 if exists $attr->{'ArrayTupleStatus'}
80 1 147 unless ($dbh->{'mock_can_connect'})
84 2 145 unless ($dbh->{'mock_can_execute'})
88 3 142 if $dbh->{'mock_can_execute'} < 0
92 3 142 if ($tracker->has_failure)
97 46 96 if (@params)
101 49 93 if (my $session = $dbh->{'mock_session'})
113 9 40 if ($@)
123 133 0 $fields ? :
133 23 110 if ($dbh->{'Statement'} =~ /^\s*?insert(?:\s+ignore)?\s+into\s+(\S+)/i)
134 1 22 if ($tracker->{'last_insert_id'}) { }
7 15 elsif ($dbh->{'mock_last_insert_ids'} and exists $dbh->{'mock_last_insert_ids'}{$1}) { }
150 97 36 if ($dbh->{'Statement'} =~ /^\s*?select/i)
159 1 145 unless ($dbh->{'mock_can_connect'})
163 3 142 unless ($dbh->{'mock_can_fetch'})
167 4 138 if $dbh->{'mock_can_fetch'} < 0
171 19 123 unless my $record = $tracker->next_record
174 6 117 if (my(@cols) = $tracker->bind_cols)
186 2 30 unless ref $row eq 'ARRAY'
201 0 10 unless ($dbh->{'mock_can_connect'})
205 1 9 unless ($dbh->{'mock_can_fetch'})
209 1 8 if $dbh->{'mock_can_fetch'} < 0
221 6 3 if (my $record = $tracker->next_record)
236 0 5 unless ($dbh->{'mock_can_connect'})
240 0 5 unless ($dbh->{'mock_can_fetch'})
244 0 5 if $dbh->{'mock_can_fetch'} < 0
255 3 2 ref $keyfield ? :
263 3 3 if (defined $names_hash->{$field}) { }
3 0 elsif (DBI::looks_like_number($field) and $field >= 1 and $field <= $num_fields) { }
290 12 0 unless defined $ref->{$value}
326 12 109 if ($attrib eq 'NAME') { }
2 107 elsif ($attrib eq 'NAME_lc') { }
1 106 elsif ($attrib eq 'NAME_uc') { }
6 100 elsif ($attrib eq 'NAME_hash') { }
1 99 elsif ($attrib eq 'NAME_hash_lc') { }
1 98 elsif ($attrib eq 'NAME_hash_uc') { }
2 96 elsif ($attrib eq 'NUM_OF_FIELDS') { }
1 95 elsif ($attrib eq 'NUM_OF_PARAMS') { }
0 95 elsif ($attrib eq 'TYPE') { }
5 90 elsif ($attrib eq 'Active') { }
2 88 elsif (not $attrib =~ /^mock/) { }
365 0 2 if ($sth->{'Database'}{'mock_attribute_aliases'})
366 0 0 if (exists do { $$sth{'Database'}{'mock_attribute_aliases'}{'st'} }->{$attrib})
372 0 0 if (ref $mock_attrib eq 'CODE') { }
385 0 88 if ($attrib eq 'mock_my_history') { }
1 87 elsif ($attrib eq 'mock_execution_history') { }
2 85 elsif ($attrib eq 'mock_statement') { }
5 80 elsif ($attrib eq 'mock_params') { }
3 77 elsif ($attrib eq 'mock_param_attrs') { }
1 76 elsif ($attrib eq 'mock_records') { }
48 28 elsif ($attrib eq 'mock_num_records' or $attrib eq 'mock_num_rows') { }
11 17 elsif ($attrib eq 'mock_current_record_num') { }
1 16 elsif ($attrib eq 'mock_fields') { }
4 12 elsif ($attrib eq 'mock_is_executed') { }
5 7 elsif ($attrib eq 'mock_is_finished') { }
7 0 elsif ($attrib eq 'mock_is_depleted') { }
429 140 553 if ($attrib =~ /^mock/) { }
210 343 elsif ($attrib =~ /^NAME/) { }