allow single element in either/all/not structures

metacpan · Jun 4, 2014 · 131e005 · 131e005
1 parent 8e0e41c
commit 131e005
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/examples/complex-either-and.pl b/examples/complex-either-and.pl
@@ -9,9 +9,7 @@
             { name => 'Dave *'  },
             { name => 'David *' },
         ],
-        all => [
-            { email => '*gmail.com' }
-        ],
+        all => { email => '*gmail.com' },
     });
 
 my %output = (

diff --git a/lib/MetaCPAN/Client/Request.pm b/lib/MetaCPAN/Client/Request.pm
@@ -140,6 +140,7 @@ sub _build_query_rec {
 
   KEY: for my $k ( qw/ all either not / ) {
         my $v = delete $args->{$k} || next KEY;
+        ref $v eq 'HASH'  and $v = [ $v ];
         ref $v eq 'ARRAY' or croak "invalid value for key $k";
 
         undef $basic_element;