File Coverage

blib/lib/DBD/Cassandra.pm
Criterion Covered Total %
statement 20 27 74.0
branch 0 4 0.0
condition n/a
subroutine 7 9 77.7
pod 1 1 100.0
total 28 41 68.2


line stmt bran cond sub pod time code
1             package DBD::Cassandra;
2             our $AUTHORITY = 'cpan:TVDW';
3             $DBD::Cassandra::VERSION = '0.57';
4             # ABSTRACT: DBI database backend for Cassandra
5              
6 1     1   50626 use 5.010;
  1         3  
7 1     1   3 use strict;
  1         2  
  1         17  
8 1     1   10 use warnings;
  1         2  
  1         24  
9 1     1   1219 use DBI 1.621;
  1         13208  
  1         44  
10              
11 1     1   498 use DBD::Cassandra::dr;
  1         3  
  1         49  
12 1     1   352 use DBD::Cassandra::db;
  1         2  
  1         23  
13 1     1   349 use DBD::Cassandra::st;
  1         2  
  1         122  
14              
15             our $drh= undef;
16              
17             sub driver {
18 0 0   0 1   return $drh if $drh;
19              
20 0           DBD::Cassandra::st->install_method('x_finish_async');
21 0           DBD::Cassandra::db->install_method('x_wait_for_schema_agreement');
22              
23 0           my ($class, $attr)= @_;
24 0 0         $drh = DBI::_new_drh($class."::dr", {
25             'Name' => 'Cassandra',
26             'Version' => $DBD::Cassandra::VERSION,
27             'Attribution' => 'DBD::Cassandra by Tom van der Woerdt',
28             }) or return undef;
29              
30 0           return $drh;
31             }
32              
33             sub CLONE {
34 0     0     undef $drh;
35             }
36              
37             1;
38              
39             __END__