1 package MyApp1::Controller::C1;
6 BEGIN { extends 'Catalyst::Controller' }
10 sub _get { $REQ{get}++ }
11 sub _get_html { $REQ{get_html}++ }
12 sub _post { $REQ{post}++ }
13 sub _put { $REQ{put}++ }
14 sub _del { $REQ{delete}++ }
18 get_html '/foo' => \&_get_html;
20 post '/foo' => \&_post;
28 get_html 'bar'=> \&_get_html;
36 chain_point '_set_chain1'
40 => sub { $REQ{chain1} = $_[2] };
42 chain_point '_set_chain2'
43 => chained '_set_chain1'
46 => sub { $REQ{chain2} = $_[2] };
49 => chained '_set_chain2'
51 => sub { $REQ{baz} = $_[2] };
53 chain_point '_set_user'
57 => sub { $REQ{user} = $_[2] };
60 => chained '_set_user'
62 => sub { $REQ{user_end} = $REQ{user} };
64 chain_point '_set_thing'
68 => sub { $REQ{thing} = $_[2] };
71 => chained '_set_thing'
73 => sub { $REQ{thing_end} = $REQ{thing} };
75 sub normal : Chained('/') : Args(0) {