File Coverage

blib/lib/Tie/Redis/Candy.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	33	33	100.0

use strictures 2;

package Tie::Redis::Candy;

# ABSTRACT: Tie Redis to HashRef or ArrayRef

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

our $VERSION = '1.001';    # VERSION

our @EXPORT_OK = qw(redis_hash redis_array);

sub redis_hash {
    my ( $redis, $key, %init ) = @_;
    tie( my %hash, 'Tie::Redis::Candy::Hash', $redis, $key );
    $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__