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   17 use strict;
  3         4  
  3         69  
3 3     3   18 use warnings;
  3         6  
  3         153  
4             our $VERSION = "2.23";
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   1005 use RedisDB::Parser::Error;
  3         6  
  3         233  
20             require XSLoader;
21             XSLoader::load( "RedisDB::Parser", $XS_VERSION );
22              
23             sub new {
24 4     4 0 9100 my ( $class, %params ) = @_;
25             return _new(
26             $params{master},
27             $params{error_class} || "RedisDB::Parser::Error",
28 4 100 50     43 $params{utf8} ? 1 : 0
29             );
30             }
31              
32             1;
33              
34             __END__