+++ /dev/null
-use MooseX::Declare;
-
-class CatalystX::Declarative extends MooseX::Declare {
-
- use aliased 'CatalystX::Declarative::Keyword::Controller', 'ControllerKeyword';
-
- around keywords {
- $self->$orig,
- ControllerKeyword->new(identifier => 'controller'),
- }
-}
-
--- /dev/null
+use MooseX::Declare;
+
+class CatalystX::Declare extends MooseX::Declare {
+
+ use aliased 'CatalystX::Declare::Keyword::Controller', 'ControllerKeyword';
+
+ around keywords {
+ $self->$orig,
+ ControllerKeyword->new(identifier => 'controller'),
+ }
+}
+
use MooseX::Declare;
use Class::MOP;
-role CatalystX::Declarative::Controller::DetermineActionClass
- with CatalystX::Declarative::Controller::QualifyClassNames {
+role CatalystX::Declare::Controller::DetermineActionClass
+ with CatalystX::Declare::Controller::QualifyClassNames {
around create_action (%args) {
use Class::MOP;
use Class::Inspector;
-role CatalystX::Declarative::Controller::QualifyClassNames {
+role CatalystX::Declare::Controller::QualifyClassNames {
use Carp qw( croak );
use MooseX::Declare;
use Class::MOP;
-role CatalystX::Declarative::Controller::RegisterActionRoles
- with CatalystX::Declarative::Controller::QualifyClassNames {
+role CatalystX::Declare::Controller::RegisterActionRoles
+ with CatalystX::Declare::Controller::QualifyClassNames {
around create_action (%args) {
use MooseX::Declare;
-role CatalystX::Declarative::DefaultSuperclassing {
+role CatalystX::Declare::DefaultSuperclassing {
requires qw(
default_superclasses
use MooseX::Declare;
-class CatalystX::Declarative::Keyword::Action
+class CatalystX::Declare::Keyword::Action
with MooseX::Declare::Syntax::KeywordHandling {
use constant STOP_PARSING => '__MXDECLARE_STOP_PARSING__';
- use constant UNDER_VAR => '$CatalystX::Declarative::SCOPE::UNDER';
+ use constant UNDER_VAR => '$CatalystX::Declare::SCOPE::UNDER';
use aliased 'MooseX::Method::Signatures::Meta::Method';
use aliased 'MooseX::MethodAttributes::Role::Meta::Method', 'AttributeRole';
$attrs->{Signature} = $proto;
$attrs->{Action} = [];
- if (defined $CatalystX::Declarative::SCOPE::UNDER) {
- $attrs->{Chained} ||= $CatalystX::Declarative::SCOPE::UNDER;
+ if (defined $CatalystX::Declare::SCOPE::UNDER) {
+ $attrs->{Chained} ||= $CatalystX::Declare::SCOPE::UNDER;
}
return unless $populator;
use MooseX::Declare;
-class CatalystX::Declarative::Keyword::Controller
+class CatalystX::Declare::Keyword::Controller
extends MooseX::Declare::Syntax::Keyword::Class
- with CatalystX::Declarative::DefaultSuperclassing {
+ with CatalystX::Declare::DefaultSuperclassing {
use MooseX::MethodAttributes ();
- use aliased 'CatalystX::Declarative::Keyword::Action', 'ActionKeyword';
- use aliased 'CatalystX::Declarative::Controller::RegisterActionRoles';
- use aliased 'CatalystX::Declarative::Controller::DetermineActionClass';
+ use aliased 'CatalystX::Declare::Keyword::Action', 'ActionKeyword';
+ use aliased 'CatalystX::Declare::Controller::RegisterActionRoles';
+ use aliased 'CatalystX::Declare::Controller::DetermineActionClass';
before add_namespace_customizations (Object $ctx, Str $package) {
use parent 'Catalyst';
use Catalyst qw( Static::Simple );
-__PACKAGE__->config(name => 'CatalystX::Declarative TestApp');
+__PACKAGE__->config(name => 'CatalystX::Declare TestApp');
__PACKAGE__->setup;
1;
-use CatalystX::Declarative;
+use CatalystX::Declare;
role MyActionYes {
around match (@args) { $ENV{TESTAPP_ACTIONROLE} ? $self->$orig(@args) : undef }
-use CatalystX::Declarative;
+use CatalystX::Declare;
controller TestApp::Controller::Root {
CLASS->config(namespace => '');