File Coverage

blib/lib/ResourcePool/Resource/Redis.pm

Criterion	Covered	Total	%
statement	28	33	84.8
branch	2	4	50.0
condition	2	5	40.0
subroutine	8	10	80.0
pod	5	5	100.0
total	45	57	78.9

#!/usr/bin/perl

package ResourcePool::Resource::Redis;
use strict;
use warnings;
use Redis;

our $VERSION = 1.0;
use base qw(ResourcePool::Resource);

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $self = $class->SUPER::new();
	my %args = @_;

	$self->{'redis'} = eval {Redis->new(%args)};
	warn $@ if $@;

	bless($self, $class);
	return $self;
}

sub close {
	my ($self) = @_;
	eval {$self->{'redis'}->quit()};
}

sub precheck {
	my ($self) = @_;
	my $rc = uc($self->{'redis'}->ping() || '') eq 'PONG';
	$rc or $self->close();
	return $rc;
}

sub postcheck {
	return 1;
}

sub get_plain_resource {
	my ($self) = @_;
	return $self->{'redis'};
}

sub DESTROY {
	my ($self) = @_;
	$self->close();
}

__END__