File Coverage

blib/lib/Tie/Redis/Candy.pm

Criterion	Covered	Total	%
statement	15	24	62.5
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	2	2	100.0
total	22	33	66.6

package Tie::Redis::Candy;

# ABSTRACT: Tie Redis to HashRef or ArrayRef

use strict;
use warnings;
use Tie::Redis::Candy::Hash;
use Tie::Redis::Candy::Array;
use Exporter qw(import);

our $VERSION = '0.004';    # VERSION

our @EXPORT_OK = qw(redis_hash redis_array);

sub redis_hash {
    my ( $redis, $prefix, %init ) = @_;
    tie( my %hash, 'Tie::Redis::Candy::Hash', $redis, $prefix );
    $hash{$_} = delete $init{$_} for keys %init;
    bless( \%hash, 'Tie::Redis::Candy::Hash' );
}

sub redis_array {
    my ( $redis, $listname, @init ) = @_;
    tie( my @array, 'Tie::Redis::Candy::Array', $redis, $listname );
    while ( my $item = shift @init ) {
        push @array => $item;
    }
    bless( \@array, 'Tie::Redis::Candy::Array' );
}

1;

__END__