File Coverage

blib/lib/ResourcePool/Factory/Redis.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	1	3	33.3
subroutine	6	6	100.0
pod	2	2	100.0
total	31	33	93.9

#!/usr/bin/perl

package ResourcePool::Factory::Redis;
use strict;
use warnings;
use base qw(ResourcePool::Factory);
use ResourcePool::Resource::Redis;

our $VERSION = 1.0;

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

	$self->{'args'} = \%args;

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

sub create_resource {
	my ($self) = @_;
	return ResourcePool::Resource::Redis->new(%{$self->{'args'}});
}

__END__