X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FParams%2FValidate.pm;h=c2f691b2bf28739d924fae0e3a34326e1ca18b63;hb=refs%2Ftags%2Fv0.16;hp=410779ad75f8113e4c984d0c0779ce7310532538;hpb=c83997574d5a31326a07d3e5d5fc425004762ed0;p=gitmo%2FMooseX-Params-Validate.git

diff --git a/lib/MooseX/Params/Validate.pm b/lib/MooseX/Params/Validate.pm
index 410779a..c2f691b 100644
--- a/lib/MooseX/Params/Validate.pm
+++ b/lib/MooseX/Params/Validate.pm
@@ -48,7 +48,7 @@ sub validated_hash {
     my $instance;
     $instance = shift @$args if blessed $args->[0];
 
-    my %args 
+    my %args
         = @$args == 1
         && ref $args->[0]
         && reftype( $args->[0] ) eq 'HASH' ? %{ $args->[0] } : @$args;
@@ -101,7 +101,7 @@ sub validated_list {
     my $instance;
     $instance = shift @$args if blessed $args->[0];
 
-    my %args 
+    my %args
         = @$args == 1
         && ref $args->[0]
         && reftype( $args->[0] ) eq 'HASH' ? %{ $args->[0] } : @$args;
@@ -154,10 +154,7 @@ sub pos_validated_list {
             if $should_cache;
     }
 
-    my @args 
-        = @$args == 1
-        && ref $args->[0]
-        && reftype( $args->[0] ) eq 'ARRAY' ? @{ $args->[0] } : @$args;
+    my @args = @$args;
 
     $args[$_] = $pv_spec[$_]{constraint}->coerce( $args[$_] )
         for grep { $pv_spec[$_] && $pv_spec[$_]{coerce} } 0 .. $#args;
@@ -388,8 +385,9 @@ Unlike the other functions, this function I<cannot> find C<$self> in
 the argument list. Make sure to shift it off yourself before doing
 validation.
 
-The values in C<@_> can either be a list of values or a single array
-reference.
+The values in C<@_> must be a list of values. You cannot pass the values as an
+array reference, because this cannot be distinguished from passing one value
+which is itself an array reference.
 
 If a parameter is marked as optional and is not present, it will
 simply not be returned.