File Coverage

blib/lib/RedisDB/Parser/XS.pm
Criterion Covered Total %
statement 11 11 100.0
branch 2 2 100.0
condition 1 2 50.0
subroutine 4 4 100.0
pod 0 1 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package RedisDB::Parser::XS;
2 3     3   12 use strict;
  3         5  
  3         86  
3 3     3   11 use warnings;
  3         3  
  3         211  
4             our $VERSION = "2.21";
5             my $XS_VERSION = $VERSION;
6             $VERSION = eval $VERSION;
7              
8             =head1 NAME
9              
10             RedisDB::Parser::XS - redis protocol parser for RedisDB
11              
12             =head1 DESCRIPTION
13              
14             XS implementation of L. You should not use this
15             module directly. See details in L documentation.
16              
17             =cut
18              
19 3     3   955 use RedisDB::Parser::Error;
  3         4  
  3         231  
20             require XSLoader;
21             XSLoader::load( "RedisDB::Parser", $XS_VERSION );
22              
23             sub new {
24 4     4 0 6412 my ( $class, %params ) = @_;
25 4 100 50     65 return _new(
26             $params{master},
27             $params{error_class} || "RedisDB::Parser::Error",
28             $params{utf8} ? 1 : 0
29             );
30             }
31              
32             1;
33              
34             __END__