File Coverage

blib/lib/DBR/Misc/Connection/SQLite.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 15 17 88.2


line stmt bran cond sub pod time code
1             package DBR::Misc::Connection::SQLite;
2              
3 17     17   113 use strict;
  17         43  
  17         969  
4 17     17   103 use base 'DBR::Misc::Connection';
  17         36  
  17         29725  
5              
6 34     34 0 242 sub required_config_fields { [ qw(dbfile) ] };
7              
8             sub getSequenceValue{
9 496     496 0 991 my $self = shift;
10 496         958 my $call = shift;
11              
12 496         4958 my ($insert_id) = $self->{dbh}->func('last_insert_rowid');
13 496         1692 return $insert_id;
14              
15             }
16              
17             1;