2 use Catalyst::Controller;
4 class CatalystX::Declare::Keyword::Controller
5 extends CatalystX::Declare::Keyword::Component {
7 use MooseX::MethodAttributes ();
8 use aliased 'CatalystX::Declare::Keyword::Action', 'ActionKeyword';
9 use aliased 'CatalystX::Declare::Controller::DetermineActionClass';
10 use aliased 'CatalystX::Declare::Controller::Meta::TypeConstraintMapping';
11 use aliased 'CatalystX::Declare::Controller::ActionPreparation';
13 use Data::Dump qw( pp );
16 before add_namespace_customizations (Object $ctx, Str $package) {
18 MooseX::MethodAttributes->init_meta(for_class => $package);
20 $ctx->add_preamble_code_parts(
22 sprintf('Class::MOP::load_class(q(%s))', TypeConstraintMapping),
23 sprintf('%s->meta->apply(%s->meta->meta)', TypeConstraintMapping, $package),
28 after add_extends_option_customizations (Object $ctx, Str $package, $superclasses, $options) {
30 $ctx->add_scope_code_parts(
31 sprintf('with qw( %s )', join ' ',
38 method default_superclasses { 'Catalyst::Controller::ActionRole' }
40 method auto_make_immutable { 0 }
42 around default_inner {
44 my @modifiers = qw( );
47 ( grep { my $id = $_->identifier; not grep { $id eq $_ } @modifiers } @{ $self->$orig() || [] } ),
48 ActionKeyword->new(identifier => 'action'),
49 ActionKeyword->new(identifier => 'under'),
50 ActionKeyword->new(identifier => 'final'),
54 method add_with_option_customizations (Object $ctx, $package, ArrayRef $roles, HashRef $options) {
56 $package = $ctx->qualify_namespace($package);
58 $ctx->add_cleanup_code_parts('Moose::Util::apply_all_roles("' . $package . '", qw/'
59 . join(' ', map { $ctx->qualify_namespace($_) } @$roles)
63 $ctx->add_cleanup_code_parts(
64 sprintf '%s->meta->make_immutable', $package
65 ) unless $options->{is}{mutable};
73 CatalystX::Declare::Keyword::Controller - Declare Catalyst Controllers
77 controller MyApp::Web::Controller::Example
78 extends MyApp::Web::ControllerBase::CRUD
79 with MyApp::Web::ControllerRole::Caching {
82 $CLASS->config(option_name => 'value');
85 has attr => (is => 'rw', lazy_build => 1);
87 method _build_attr { 'Hello World' }
92 final action site, under base {
93 $ctx->response->body( $self->attr );
99 This handler module allows the declaration of Catalyst controllers. The
100 C<controller> keyword is an extension of the
101 L<CatalystX::Declare::Keyword::Component>, which in turn is an extension
102 of L<MooseX::Declare/class> with all the
103 bells and whistles, including C<extends>, C<with>, C<method> and modifier
106 In addition to the keywords and features provided by L<MooseX::Declare>, you
107 can also specify your controller's actions declaratively. For the whole truth
108 about the syntax refer to L<CatalystX::Declare::Keyword::Action>.
110 For controller roles, please see L<CatalystX::Declare::Keyword::Role>. You can
111 extend controllers with the C<extends> keyword and consume roles via C<with> as
118 =item L<CatalystX::Declare::Keyword::Component>
124 These methods are implementation details. Unless you are extending or
125 developing L<CatalystX::Declare>, you should not be concerned with them.
127 =head2 add_namespace_customizations
129 Object->add_namespace_customizations (Object $ctx, Str $package)
131 This method modifier will initialise the controller with
132 L<MooseX::MethodAttributes> and add the
133 L<CatalystX::Declare::Controller::ActionPreparation> and
134 L<CatalystX::Declare::Controller::DetermineActionClass> controller roles
135 before calling the original.
137 =head2 default_superclasses
139 Str Object->default_superclasses ()
141 Returns L<Catalyst::Controller> as the default superclass for all declared
144 =head2 add_with_option_customizations
146 Object->add_with_option_customizations (
153 This hook method will be called by L<MooseX::Declare> when C<with> options were
154 encountered. Since 0.011 the roles will be applied all at once.
156 This method will also add a callback to make the controller immutable to the
157 cleanup code parts unless C<is mutable> was specified.
159 =head2 auto_make_immutable
161 Bool Object->auto_make_immutable ()
163 Returns C<0>, indicating that L<MooseX::Declare> should not make this class
164 immutable by itself. We will do that in the L</add_with_option_customizations>
169 ArrayRef[Object] Object->default_inner ()
171 A method modifier around the original. The inner syntax handlers inherited by
172 L<MooseX::Declare::Syntax::Keyword::Class> are extended with instances of the
173 L<CatalystX::Declare::Keyword::Action> handler class for the C<action>,
174 C<under> and C<final> identifiers.
180 =item L<CatalystX::Declare>
182 =item L<CatalystX::Declare::Keyword::Action>
184 =item L<CatalystX::Declare::Keyword::Component>
186 =item L<MooseX::Declare/class>
192 See L<CatalystX::Declare/AUTHOR> for author information.
196 This program is free software; you can redistribute it and/or modify it under
197 the same terms as perl itself.