added hashref support to query

leto · Mar 17, 2009 · 2690804 · 2690804
1 parent 186966a
commit 2690804
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Mojo/URL.pm b/lib/Mojo/URL.pm
@@ -129,7 +129,8 @@ sub query {
 
     # Set
     if (@_) {
-        $self->{query} = @_ > 1 ? Mojo::Parameters->new(@_) : $_[0];
+        $self->{query} =
+          @_ > 1 ? Mojo::Parameters->new(ref $_[0] ? @{$_[0]} : @_) : $_[0];
         return $self;
     }
 
@@ -373,6 +374,7 @@ following new ones.
 
     my $query = $url->query;
     $url      = $url->query(name => 'value');
+    $url      = $url->query([name => 'value']);
     $url      = $url->query(Mojo::Parameters->new);
 
 =head2 C<to_abs>