Redis::Client->new() doesnt throw error about perl-redis-client HOT 1 OPEN

sub redis_connect
{
    my $client = Redis::Client->new( host => $server, port => 6379 );
    eval {
        $client->ping();
    };
    if ($@)
    {
        print STDERR $@, "\n";
        return undef;
    } else {
        return $client;
    }
};