X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Controller-DBIC-API.git;a=blobdiff_plain;f=lib%2FCatalyst%2FController%2FDBIC%2FAPI%2FValidator%2FVisitor.pm;fp=lib%2FCatalyst%2FController%2FDBIC%2FAPI%2FValidator%2FVisitor.pm;h=725f4a18551dfcba86abece3c4da21df4b3e2e31;hp=d256647f1c6a5f4af941138bfa29194bcdc027f2;hb=abd87a67473a3595691e7f41ca50c65eb60e3f2c;hpb=28098e5de1724ed64d9908f593ec60e3ab3ebdbb

diff --git a/lib/Catalyst/Controller/DBIC/API/Validator/Visitor.pm b/lib/Catalyst/Controller/DBIC/API/Validator/Visitor.pm
index d256647..725f4a1 100644
--- a/lib/Catalyst/Controller/DBIC/API/Validator/Visitor.pm
+++ b/lib/Catalyst/Controller/DBIC/API/Validator/Visitor.pm
@@ -5,6 +5,13 @@ use namespace::autoclean;
 
 BEGIN { extends 'Data::DPath::Validator::Visitor'; }
 
+=attribute_private DEBUG
+
+Debugging warnings can be enabled by setting the environment variable
+DATA_DPATH_VALIDATOR_DEBUG to a true value.
+
+=cut
+
 use constant DEBUG => $ENV{DATA_DPATH_VALIDATOR_DEBUG} || 0;
 
 around visit_array => sub
@@ -33,7 +40,9 @@ around visit_array => sub
 
 sub visit_array_entry
 {
-    my ($self, $elem, $index, $array) = @_;
+    # to make release-unused-vars.t happy
+    #my ($self, $elem, $index, $array) = @_;
+    my ($self, $elem) = @_;
     $self->dive();
     warn 'ARRAYENTRY: '. $self->current_template if DEBUG;
     if(!ref($elem))