are coercions feasable at all?

diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm
index 6081f22..913e0de 100644 (file)
--- a/lib/Catalyst/Action.pm
+++ b/lib/Catalyst/Action.pm
@@ -140,14 +140,13 @@ sub execute {
 
 sub match {
     my ( $self, $c ) = @_;
-    $c->log->debug($self->reverse);
 
     # If infinite args, we always match
     return 1 if $self->normalized_arg_number == ~0;
 
     # There there are arg constraints, we must see to it that the constraints
     # check positive for each arg in the list.
-    if(0 && $self->has_args_constraints) {
+    if($self->has_args_constraints) {
       # If there is only one type constraint, and its a Ref or subtype of Ref,
       # That means we expect a reference, so use the full args arrayref.
       if(

diff --git a/t/arg_constraints.t b/t/arg_constraints.t
index 2a6636e..fae6bc6 100644 (file)
--- a/t/arg_constraints.t
+++ b/t/arg_constraints.t
@@ -84,7 +84,6 @@ BEGIN {
 
   sub tuple :Local Args(Tuple[Str,Int]) {
     my ($self, $c, $str, $int) = @_;
-    warn "$str $int";
     $c->res->body('tuple');
   }