File Coverage

blib/lib/Protocol/Redis/XS.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	39	41	95.1

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

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

our $VERSION = '0.05';

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

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

  my $on_message = delete $args{on_message};

  my $self = bless \%args, $class;
  return unless $self->api == 1;
  $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__