) {
return \@args;
} else {
- # Allows Args(Int,Str) and Args(Str,2,Int) == Args(Str,Any,Any,Int)
@args =
map { Moose::Util::TypeConstraints::find_or_parse_type_constraint($_) || die "$_ is not a constraint!" }
- map { looks_like_number($_) ? ('Any' x $_) : $_ } @arg_protos;
+ @arg_protos;
}
return \@args;
}
{
+ my $res = request '/an_int/aa';
+ is $res->content, 'default';
+}
+
+{
my $res = request '/many_ints/1';
is $res->content, 'many_ints';
}
is $res->content, 'default';
}
-{
- my $res = request '/an_int/aa';
- is $res->content, 'default';
-}
-
done_testing;