From: John Napiorkowski <jjn1056@yahoo.com>
Date: Tue, 17 Mar 2015 18:22:29 +0000 (-0500)
Subject: are coercions feasable at all?
X-Git-Tag: 5.90089_002~41
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=5d198e3f95611ce91aef8c400db4c73cbc471d7c

are coercions feasable at all?
---

diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm
index 6081f22..913e0de 100644
--- 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
--- 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');
   }