X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fquery_constraints.t;h=5d93d2ba71151d58fe706b7a8d1537783e73f8f1;hp=81e3e1d4ebba479f0debeefa7e6e8c3d59a43e4a;hb=88e5a8b0c4d28e46b8ba6b6b9567063e57af9063;hpb=9868e0a0023cc8b598d60f150ea367e0056a65f3 diff --git a/t/query_constraints.t b/t/query_constraints.t index 81e3e1d..5d93d2b 100644 --- a/t/query_constraints.t +++ b/t/query_constraints.t @@ -16,14 +16,14 @@ BEGIN { use strict; use warnings; - + use Type::Utils -all; use Types::Standard -types; use Type::Library -base, -declare => qw( UserId Heart ); - extends "Types::Standard"; + extends "Types::Standard"; declare UserId, as Int, @@ -59,7 +59,7 @@ BEGIN { } sub string_types :Local Query(q=>'Str',age=>'Int') { pop->res->body('string_type') } - + sub as_ref :Local Query(Dict[age=>Int,sex=>Enum['f','m','o'], slurpy HashRef[Int]]) { pop->res->body('as_ref') } sub utf8 :Local Query(utf8=>Heart) { pop->res->body("heart") } @@ -68,7 +68,7 @@ BEGIN { sub big :Chained(chain) PathPart('') Args(0) Query(size=>Int,...) { pop->res->body('big') } sub small :Chained(chain) PathPart('') Args(0) Query(size=>UserId,...) { pop->res->body('small') } - + sub default :Default { my ($self, $c, $int) = @_; $c->res->body('default');