blib/lib/DBO.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 3 | 16 | 18.7 |
line | true | false | branch |
---|---|---|---|
34 | 0 | 4 | unless isa($$self{'schema'}, 'DBO::Database') |
40 | 4 | 0 | unless isa($$self{'handle'}, 'DBO::Handle') |
60 | 0 | 0 | unless ref $vis |
67 | 0 | 0 | unless my $table = $$self{'schema'}->lookup_table($id) |
70 | 0 | 0 | unless ref $vis |
109 | 0 | 0 | unless my $dbh = 'DBI'->connect(@_) |
116 | 0 | 0 | unless $$self->do($sql) |
149 | 4 | 0 | if $DBO::DEBUG |