File Coverage

blib/lib/ObjectDB/Stmt.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 5 40.0
pod 0 3 0.0
total 8 18 44.4


line stmt bran cond sub pod time code
1             package ObjectDB::Stmt;
2              
3 5     5   32 use strict;
  5         9  
  5         139  
4 5     5   23 use warnings;
  5         10  
  5         516  
5              
6 0     0 0   sub new { bless { @_[ 1 .. $#_ ] }, $_[0] }
7 0     0 0   sub to_sql { shift->{sql} }
8 0     0 0   sub to_bind { @{ shift->{bind} } }
  0            
9              
10             1;