gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use MojoX::Redis;

my $redis = MojoX::Redis->new(server => '127.0.0.1:6379');
$redis = $redis->ioloop(Mojo::IOLoop->new);

$redis->hmset(
    '111',
    test1 => 'test1',
    test2 => 'test2',
    test3 => 'test3'
);

my ($data_out1, $data_out2, $data_out3);

$redis->hmget(
    '111', 'test1', 'test2',
    'test3' => sub {
        my ($redis, $res) = @_;
        print Dumper $res;
    }
);

$redis->hmset('111', 'test1' => 'foo1', 'test2' => 'foo2', 'test3' => 'foo3');

$redis->hmget(
    '111', 'test1', 'test2',
    'test3' => sub {
        my ($redis, $res) = @_;
        print Dumper $res;
        $redis->stop;
    }
);

$redis->start;