File Coverage

blib/lib/Redis/hiredis.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	3	8	37.5
condition			n/a
subroutine	3	5	60.0
pod	1	1	100.0
total	19	33	57.5

package Redis::hiredis;

use strict;
our $VERSION = "0.11.0";
require XSLoader;
XSLoader::load('Redis::hiredis', $VERSION);

our $AUTOLOAD;

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

    if(!exists $args{utf8}) {
        $args{utf8} = 1;
    }

    my $self = $class->_new($args{utf8});

    if(exists $args{host}) {
        $self->connect($args{host}, defined $args{port} ? $args{port} : 6379);
    }
    elsif (exists $args{path}) {
        $self->connect_unix($args{path});
    }

    return $self;
}

sub AUTOLOAD {
    (my $method = $AUTOLOAD) =~ s/.*:://;

    # cache method for future calls
    my $sub =  sub { shift->command($method, @_) };
    no strict 'refs';
    *$AUTOLOAD = $sub;

    goto $sub;
}

1;
__END__