File Coverage

blib/lib/Dancer/Plugin/Redis.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	8	50.0
condition	2	5	40.0
subroutine	7	7	100.0
pod			n/a
total	39	46	84.7

#
# This file is part of Dancer-Plugin-Redis
#
# This software is copyright (c) 2014 by celogeek .
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package Dancer::Plugin::Redis;

# ABSTRACT: easy database connections for Dancer applications

use strict;
use warnings;
our $VERSION = '0.8';    # VERSION
use Carp;
use Dancer::Plugin;
use Try::Tiny;
use Redis 1.955;

my $_settings;
my $_handles;

sub redis {
    my @args = @_;
    my ( undef, $name ) = plugin_args(@args);
    $name = "_default" if not defined $name;
    return $_handles->{$name} if exists $_handles->{$name};

    $_settings ||= plugin_setting;

    my $conf
        = $name eq '_default'
        ? $_settings
        : $_settings->{connections}->{$name};
    croak "$name is not defined in your redis conf, please check the doc"
        unless defined $conf;

    return $_handles->{$name} = Redis->new(
        server    => $conf->{server},
        debug     => $conf->{debug},
        encoding  => $conf->{encoding},
        reconnect => $conf->{reconnect} // 60,
        password  => $conf->{password},
    );

}

register redis => \&redis;
register_plugin for_versions => [ 1, 2 ];

1;

__END__