File Coverage

blib/lib/Data/TxnBuffer.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Data::TxnBuffer;
2 6     6   128695 use strict;
  6         11  
  6         212  
3 6     6   30 use warnings;
  6         13  
  6         178  
4 6     6   4767 use parent 'Data::TxnBuffer::Base';
  6         1990  
  6         30  
5              
6             our $VERSION = '0.05';
7              
8             our $BACKEND;
9             unless ($ENV{PERL_ONLY}) {
10             eval {
11             require XSLoader;
12             XSLoader::load(__PACKAGE__, $VERSION);
13             $BACKEND = 'XS';
14             };
15             }
16              
17             unless (__PACKAGE__->can('new')) {
18 3     3   15 eval q{
  3         6  
  3         17  
19             use parent 'Data::TxnBuffer::PP';
20             $BACKEND = 'PP';
21             };
22             }
23              
24             1;
25              
26             __END__