From 48702c9d93984363b75a4d1975fe40001d22eff9 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 18 Jul 2012 00:44:54 -0500 Subject: don't need this --- lib/Web/Request.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lib/Web/Request.pm b/lib/Web/Request.pm index 6021d7a..8517898 100644 --- a/lib/Web/Request.pm +++ b/lib/Web/Request.pm @@ -2,7 +2,6 @@ package Web::Request; use Moose; use Encode (); -use List::MoreUtils (); use HTTP::Body (); use HTTP::Headers (); use HTTP::Message::PSGI (); @@ -233,10 +232,9 @@ has all_query_parameters => ( my $self = shift; my @params = $self->uri->query_form; - my $it = List::MoreUtils::natatime 2, @params; my $ret = {}; - while (my ($k, $v) = $it->()) { + while (my ($k, $v) = splice @params, 0, 2) { push @{ $ret->{$k} ||= [] }, $self->decode($v); } -- cgit v1.2.3-54-g00ecf