3 use HTTP::Request::Common;
8 eval "use Type::Tiny 1.000005; 1" || do {
9 plan skip_all => "Trouble loading Type::Tiny and friends => $@";
15 $INC{'MyApp/Types.pm'} = __FILE__;
21 use Types::Standard -types;
24 -declare => qw( UserId Heart );
26 extends "Types::Standard";
39 package MyApp::Controller::Root;
40 $INC{'MyApp/Controller/Root.pm'} = __FILE__;
43 use MooseX::MethodAttributes;
44 use Types::Standard 'slurpy';
45 use MyApp::Types qw/Dict Tuple Int StrMatch HashRef ArrayRef Enum UserId Heart/;
47 extends 'Catalyst::Controller';
49 sub user :Local Args(1)
50 Query(page=>Int,user=>Tuple[Enum['a','b'],Int]) {
51 my ($self, $c, $int) = @_;
52 $c->res->body("page ${\$c->req->query_parameters->{page}}, user ${\$c->req->query_parameters->{user}[1]}");
55 sub user_slurps :Local Args(1)
56 Query(page=>Int,user=>Tuple[Enum['a','b'],Int],...) {
57 my ($self, $c, $int) = @_;
58 $c->res->body("page ${\$c->req->query_parameters->{page}}, user ${\$c->req->query_parameters->{user}[1]}");
61 sub string_types :Local Query(q=>'Str',age=>'Int') { pop->res->body('string_type') }
63 sub as_ref :Local Query(Dict[age=>Int,sex=>Enum['f','m','o'], slurpy HashRef[Int]]) { pop->res->body('as_ref') }
65 sub utf8 :Local Query(utf8=>Heart) { pop->res->body("heart") }
67 sub chain :Chained(/) CaptureArgs(0) Query(age=>Int,...) { }
69 sub big :Chained(chain) PathPart('') Args(0) Query(size=>Int,...) { pop->res->body('big') }
70 sub small :Chained(chain) PathPart('') Args(0) Query(size=>UserId,...) { pop->res->body('small') }
72 sub default :Default {
73 my ($self, $c, $int) = @_;
74 $c->res->body('default');
77 MyApp::Controller::Root->config(namespace=>'');
85 use Catalyst::Test 'MyApp';
88 my $res = request '/user/1?page=10&user=a&user=100';
89 is $res->content, 'page 10, user 100';
93 my $res = request '/user/1?page=10&user=d&user=100';
94 is $res->content, 'default';
98 my $res = request '/user/1?page=string&user=a&user=100';
99 is $res->content, 'default';
103 my $res = request '/user/1?page=10&user=a&user=100&foo=bar';
104 is $res->content, 'default';
108 my $res = request '/user/1?page=10&user=a&user=100&user=bar';
109 is $res->content, 'default';
113 my $res = request '/user_slurps/1?page=10&user=a&user=100&foo=bar';
114 is $res->content, 'page 10, user 100';
118 my $res = request '/string_types?q=sssss&age=10';
119 is $res->content, 'string_type';
123 my $res = request '/string_types?w=sssss&age=10';
124 is $res->content, 'default';
128 my $res = request '/string_types?q=sssss&age=string';
129 is $res->content, 'default';
133 my $res = request '/as_ref?q=sssss&age=string';
134 is $res->content, 'default';
138 my $res = request '/as_ref?age=10&sex=o&foo=bar&baz=bot';
139 is $res->content, 'default';
143 my $res = request '/as_ref?age=10&sex=o&foo=122&baz=300';
144 is $res->content, 'as_ref';
148 my $res = request '/utf8?utf8=♥';
149 is $res->content, 'heart';
153 my $res = request '/chain?age=string&size=2';
154 is $res->content, 'default';
158 my $res = request '/chain?age=string&size=string';
159 is $res->content, 'default';
163 my $res = request '/chain?age=50&size=string';
164 is $res->content, 'default';
168 my $res = request '/chain?age=10&size=100';
169 is $res->content, 'big';
173 my $res = request '/chain?age=10&size=2';
174 is $res->content, 'small';