From 3c36b404b48bfa33975c18387667ff3834f5046d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 24 Sep 2009 20:40:09 -0700
Subject: [PATCH] Try to optimize mget in Cache.pm

---
 lib/WebGUI/Cache.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/Cache.pm b/lib/WebGUI/Cache.pm
index c05f24386..bdbe9c248 100644
--- a/lib/WebGUI/Cache.pm
+++ b/lib/WebGUI/Cache.pm
@@ -132,13 +132,10 @@ An array reference of keys to retrieve.
 
 sub mget {
     my ($self, $names) = @_;
-    my @parsedNames = ();
-    foreach my $name (@{$names}) {
-        push @parsedNames, $self->parseKey($name);
-    }
+    my @parsedNames = map { $self->parseKey($_) } @{ $names };
     my %result;
     $self->getMemcached->mget_into_hashref(\@parsedNames, \%result);
-    my @values = ();
+    my @values;
     foreach my $name (@parsedNames) {
         next unless ref $result{$name};
         push @values, ${$result{$name}};