oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Try to optimize mget in Cache.pm

Browse source
This commit is contained in:
Colin Kuskie 2009-09-24 20:40:09 -07:00
parent 65239eee4d
commit 3c36b404b4
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Cache.pm
View file

@ -132,13 +132,10 @@ An array reference of keys to retrieve.
sub mget { sub mget {
my ($self, $names) = @_; my ($self, $names) = @_;
my @parsedNames = (); my @parsedNames = map { $self->parseKey($_) } @{ $names };
foreach my $name (@{$names}) {
push @parsedNames, $self->parseKey($name);
}
my %result; my %result;
$self->getMemcached->mget_into_hashref(\@parsedNames, \%result); $self->getMemcached->mget_into_hashref(\@parsedNames, \%result);
my @values = (); my @values;
foreach my $name (@parsedNames) { foreach my $name (@parsedNames) {
next unless ref $result{$name}; next unless ref $result{$name};
push @values, ${$result{$name}}; push @values, ${$result{$name}};