diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-07-18 00:44:54 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-07-18 00:44:54 -0500 |
| commit | 48702c9d93984363b75a4d1975fe40001d22eff9 (patch) | |
| tree | f58efe43420ab9eefebeebc23fb8be2b51441a57 | |
| parent | 70cff18b7d14a0efd4303bec457e8e7643ef80ba (diff) | |
| download | web-request-48702c9d93984363b75a4d1975fe40001d22eff9.tar.gz web-request-48702c9d93984363b75a4d1975fe40001d22eff9.zip | |
don't need this
| -rw-r--r-- | lib/Web/Request.pm | 4 |
1 files changed, 1 insertions, 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); } |