moved to CatalystX::Declare
Robert 'phaylon' Sedlacek [Tue, 28 Jul 2009 17:20:28 +0000 (19:20 +0200)]
lib/CatalystX/Declarative.pm [deleted file]
lib/CatalystX/Declare.pm [new file with mode: 0644]
lib/CatalystX/Declare/Controller/DetermineActionClass.pm [moved from lib/CatalystX/Declarative/Controller/DetermineActionClass.pm with 77% similarity]
lib/CatalystX/Declare/Controller/QualifyClassNames.pm [moved from lib/CatalystX/Declarative/Controller/QualifyClassNames.pm with 92% similarity]
lib/CatalystX/Declare/Controller/RegisterActionRoles.pm [moved from lib/CatalystX/Declarative/Controller/RegisterActionRoles.pm with 78% similarity]
lib/CatalystX/Declare/DefaultSuperclassing.pm [moved from lib/CatalystX/Declarative/DefaultSuperclassing.pm with 84% similarity]
lib/CatalystX/Declare/Keyword/Action.pm [moved from lib/CatalystX/Declarative/Keyword/Action.pm with 97% similarity]
lib/CatalystX/Declare/Keyword/Controller.pm [moved from lib/CatalystX/Declarative/Keyword/Controller.pm with 70% similarity]
t/lib/TestApp.pm
t/lib/TestApp/Controller/Foo.pm
t/lib/TestApp/Controller/Root.pm

diff --git a/lib/CatalystX/Declarative.pm b/lib/CatalystX/Declarative.pm
deleted file mode 100644 (file)
index 855109f..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-use MooseX::Declare;
-
-class CatalystX::Declarative extends MooseX::Declare {
-
-    use aliased 'CatalystX::Declarative::Keyword::Controller', 'ControllerKeyword';
-
-    around keywords {
-        $self->$orig,
-        ControllerKeyword->new(identifier => 'controller'),
-    }
-}
-
diff --git a/lib/CatalystX/Declare.pm b/lib/CatalystX/Declare.pm
new file mode 100644 (file)
index 0000000..0aa8cf2
--- /dev/null
@@ -0,0 +1,12 @@
+use MooseX::Declare;
+
+class CatalystX::Declare extends MooseX::Declare {
+
+    use aliased 'CatalystX::Declare::Keyword::Controller', 'ControllerKeyword';
+
+    around keywords {
+        $self->$orig,
+        ControllerKeyword->new(identifier => 'controller'),
+    }
+}
+
@@ -1,8 +1,8 @@
 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) {
 
@@ -3,7 +3,7 @@ use MooseX::Declare;
 use Class::MOP;
 use Class::Inspector;
 
-role CatalystX::Declarative::Controller::QualifyClassNames {
+role CatalystX::Declare::Controller::QualifyClassNames {
 
     use Carp qw( croak );
 
@@ -1,8 +1,8 @@
 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) {
 
@@ -1,6 +1,6 @@
 use MooseX::Declare;
 
-role CatalystX::Declarative::DefaultSuperclassing {
+role CatalystX::Declare::DefaultSuperclassing {
 
     requires qw(
         default_superclasses
similarity index 97%
rename from lib/CatalystX/Declarative/Keyword/Action.pm
rename to lib/CatalystX/Declare/Keyword/Action.pm
index b87f72b..d4c5543 100644 (file)
@@ -1,6 +1,6 @@
 use MooseX::Declare;
 
-class CatalystX::Declarative::Keyword::Action
+class CatalystX::Declare::Keyword::Action
     with MooseX::Declare::Syntax::KeywordHandling {
 
 
@@ -13,7 +13,7 @@ class CatalystX::Declarative::Keyword::Action
 
 
     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';
@@ -197,8 +197,8 @@ class CatalystX::Declarative::Keyword::Action
         $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;
@@ -1,14 +1,14 @@
 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) {
index 3f5ef1c..fe552c2 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 use parent 'Catalyst';
 use Catalyst qw( Static::Simple );
 
-__PACKAGE__->config(name => 'CatalystX::Declarative TestApp');
+__PACKAGE__->config(name => 'CatalystX::Declare TestApp');
 __PACKAGE__->setup;
 
 1;
index bab5f2f..b8715ae 100644 (file)
@@ -1,4 +1,4 @@
-use CatalystX::Declarative;
+use CatalystX::Declare;
 
 role MyActionYes {
     around match (@args) { $ENV{TESTAPP_ACTIONROLE} ? $self->$orig(@args) : undef }
index 95afd0a..4318c04 100644 (file)
@@ -1,4 +1,4 @@
-use CatalystX::Declarative;
+use CatalystX::Declare;
 
 controller TestApp::Controller::Root {
     CLASS->config(namespace => '');