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.56_002'; # TRIAL
4              
5             $DBD::Cassandra::VERSION = '0.56002';# ABSTRACT: DBI database backend for Cassandra
6              
7 1     1   14089 use 5.010;
  1         5  
8 1     1   8 use strict;
  1         3  
  1         28  
9 1     1   5 use warnings;
  1         5  
  1         33  
10 1     1   1217 use DBI 1.621;
  1         13136  
  1         56  
11              
12 1     1   387 use DBD::Cassandra::dr;
  1         3  
  1         34  
13 1     1   377 use DBD::Cassandra::db;
  1         3  
  1         23  
14 1     1   319 use DBD::Cassandra::st;
  1         2  
  1         106  
15              
16             our $drh= undef;
17              
18             sub driver {
19 0 0   0 1   return $drh if $drh;
20              
21 0           DBD::Cassandra::st->install_method('x_finish_async');
22 0           DBD::Cassandra::db->install_method('x_wait_for_schema_agreement');
23              
24 0           my ($class, $attr)= @_;
25 0 0         $drh = DBI::_new_drh($class."::dr", {
26             'Name' => 'Cassandra',
27             'Version' => $DBD::Cassandra::VERSION,
28             'Attribution' => 'DBD::Cassandra by Tom van der Woerdt',
29             }) or return undef;
30              
31 0           return $drh;
32             }
33              
34             sub CLONE {
35 0     0     undef $drh;
36             }
37              
38             1;
39              
40             __END__