File Coverage

blib/lib/DBIx/ThinSQL/Driver/SQLite.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 3 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package DBIx::ThinSQL::Driver::SQLite;
2              
3 1     1   4 use strict;
  1         1  
  1         27  
4 1     1   4 use warnings;
  1         1  
  1         159  
5              
6             our @ISA = ('DBIx::ThinSQL::Driver');
7              
8             sub savepoint {
9 2     2 0 4 my $self = shift;
10 2         2 my $dbh = shift;
11 2         3 my $name = shift;
12 2         12 $dbh->do( 'SAVEPOINT ' . $name );
13             }
14              
15             sub release {
16 1     1 0 2 my $self = shift;
17 1         2 my $dbh = shift;
18 1         1 my $name = shift;
19 1         5 $dbh->do( 'RELEASE ' . $name );
20             }
21              
22             sub rollback_to {
23 1     1 0 2 my $self = shift;
24 1         2 my $dbh = shift;
25 1         2 my $name = shift;
26 1         6 $dbh->do( 'ROLLBACK TO ' . $name );
27             }
28              
29             1;