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 4     4   23 use strict;
  4         8  
  4         113  
3 4     4   22 use warnings;
  4         8  
  4         307  
4             our $VERSION = "2.22";
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 4     4   2395 use RedisDB::Parser::Error;
  4         11  
  4         445  
20             require XSLoader;
21             XSLoader::load( "RedisDB::Parser", $XS_VERSION );
22              
23             sub new {
24 24     24 0 22555 my ( $class, %params ) = @_;
25             return _new(
26             $params{master},
27             $params{error_class} || "RedisDB::Parser::Error",
28 24 100 50     17246 $params{utf8} ? 1 : 0
29             );
30             }
31              
32             1;
33              
34             __END__