cleanups and tests

[catagits/CatalystX-Declare.git] / lib / CatalystX / Declarative / Keyword / Controller.pm

use MooseX::Declare;

class CatalystX::Declarative::Keyword::Controller 
    extends MooseX::Declare::Syntax::Keyword::Class
    with    CatalystX::Declarative::DefaultSuperclassing {


    use MooseX::MethodAttributes ();
    use aliased 'CatalystX::Declarative::Keyword::Action', 'ActionKeyword';


    before add_namespace_customizations (Object $ctx, Str $package) {

        MooseX::MethodAttributes->init_meta(for_class => $package);
        $ctx->add_preamble_code_parts('use CLASS');
    }

    method default_superclasses { 'Catalyst::Controller' }

    around default_inner () {

        return [ 
            @{ $self->$orig() || [] },
            ActionKeyword->new(identifier => 'action'),
            ActionKeyword->new(identifier => 'under'),
        ];
    }
}