File Coverage

blib/lib/Hubot/Scripts/redisBrain.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Hubot::Scripts::redisBrain;
$Hubot::Scripts::redisBrain::VERSION = '0.1.10';
use strict;
use warnings;
use Redis;
use JSON::XS;
use Encode qw/encode_utf8 decode_utf8/;

sub load {
    my ( $class, $robot ) = @_;
    my $coder = JSON::XS->new->convert_blessed;
    my $redis = Redis->new( server => $ENV{REDIS_SERVER} || '127.0.0.1:6379' );
    print "connected to redis-server\n" if $ENV{DEBUG};
    my $json = $redis->get('hubot:storage') || '{}';
    $robot->brain->mergeData( decode_json( decode_utf8($json) ) );
    $robot->brain->on(
        'save',
        sub {
            my ( $e, $data ) = @_;
            my $json = $coder->encode($data);
            $redis->set( 'hubot:storage', encode_utf8($json) );
        }
    );
    $robot->brain->on( 'close', sub { $redis->quit } );
}

1;

=head1 NAME

Hubot::Scripts::redisBrain

=head1 VERSION

version 0.1.10

=head1 SYNOPSIS

=head1 CONFIGURATION

=over

=item REDIS_SERVER

C<127.0.0.1:6379> is default to use.

=back

=head1 SEE ALSO

L

=head1 AUTHOR

Hyungsuk Hong

=cut