File Coverage

blib/lib/Protocol/Redis/XS.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	3	4	75.0
condition	2	3	66.6
subroutine	8	8	100.0
pod	3	3	100.0
total	42	44	95.4

package Protocol::Redis::XS;
use strict;
use warnings;
use parent "Protocol::Redis";

use XS::Object::Magic;
use XSLoader;

our $VERSION = '0.10';

XSLoader::load "Protocol::Redis::XS", $VERSION;

sub new {
  my($class, %args) = @_;

  my $on_message = delete $args{on_message};

  Carp::croak(qq/Unknown Protocol::Redis API version $args{api}/)
    unless defined $args{api} and $args{api} == 1;

  my $self = bless \%args, $class;
  $self->on_message($on_message) if defined $on_message;

  $self->_create;

  return $self;
}

# See Protocol::Redis for description of the API versioning
sub api {
  my($self) = @_;

  $self->{api};
}

sub on_message {
  my($self, $cb) = @_;
  $self->{_on_message_cb} = $cb;
}

1;

__END__