From 6255eeeb7fb4da510289888a086477f03194ef97 Mon Sep 17 00:00:00 2001
From: rns <rns123@ukr.net>
Date: Wed, 18 Aug 2010 11:43:06 +0300
Subject: [PATCH] mset and mget using multibulk protocol

---
 lib/Redis.pm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 8df6779..09db12b 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -55,6 +55,11 @@ sub new {
 	$self;
 }
 
+my $multi_bulk_command = {
+	mset => 1,
+	mget => 1
+};
+
 my $bulk_command = {
 	set => 1,	setnx => 1,
 	rpush => 1,	lpush => 1,
@@ -89,7 +94,15 @@ sub AUTOLOAD {
 
 	my $send;
 
-	if ( defined $bulk_command->{$command} ) {
+	if ( defined $multi_bulk_command->{$command} ) {
+		$send = 
+			  '*' . (scalar(@_) + 1)   . "\r\n" 
+			. '$' . (length($command)) . "\r\n"
+			. uc($command)             . "\r\n"
+			;
+		$send .= join "\r\n", map { '$' . length($_) . "\r\n" . $_ } @_;
+		$send .= "\r\n";
+	} elsif ( defined $bulk_command->{$command} ) {
 		my $value = pop;
 		$value = '' if ! defined $value;
 		$send
-- 
2.20.1