bumped version

[catagits/CatalystX-Declare.git] / lib / CatalystX / Declare.pm

diff --git a/lib/CatalystX/Declare.pm b/lib/CatalystX/Declare.pm
index 60b48c3..dc2e3d5 100644 (file)
--- a/lib/CatalystX/Declare.pm
+++ b/lib/CatalystX/Declare.pm
@@ -2,19 +2,23 @@ use MooseX::Declare;
 
 class CatalystX::Declare extends MooseX::Declare is dirty {
 
+    use aliased 'CatalystX::Declare::Keyword::Model',       'ModelKeyword';
+    use aliased 'CatalystX::Declare::Keyword::View',        'ViewKeyword';
     use aliased 'CatalystX::Declare::Keyword::Controller',  'ControllerKeyword';
     use aliased 'CatalystX::Declare::Keyword::Role',        'RoleKeyword';
     use aliased 'CatalystX::Declare::Keyword::Application', 'ApplicationKeyword';
 
     clean;
 
-    our $VERSION = '0.004';
+    our $VERSION = '0.007';
 
-    around keywords {
+    around keywords (ClassName $self:) {
         $self->$orig,
-        ControllerKeyword->new(identifier => 'controller'),
-        RoleKeyword->new(identifier => 'controller_role'),
-        ApplicationKeyword->new(identifier => 'application'),
+        ControllerKeyword->new(     identifier => 'controller'      ),
+        RoleKeyword->new(           identifier => 'controller_role' ),
+        ApplicationKeyword->new(    identifier => 'application'     ),
+        ViewKeyword->new(           identifier => 'view'            ),
+        ModelKeyword->new(          identifier => 'model'           ),
     }
 }
 
@@ -35,6 +39,10 @@ CatalystX::Declare - EXPERIMENTAL Declarative Syntax for Catalyst Applications
         $CLASS->config(name => 'My Declarative Web Application');
     }
 
+See also: 
+L<CatalystX::Declare::Keyword::Application>, 
+L<MooseX::Declare/class>
+
 =head2 Controllers
 
     use CatalystX::Declare;
@@ -65,6 +73,12 @@ CatalystX::Declare - EXPERIMENTAL Declarative Syntax for Catalyst Applications
         }
     }
 
+See also: 
+L<CatalystX::Declare::Keyword::Controller>, 
+L<CatalystX::Declare::Keyword::Action>, 
+L<CatalystX::Declare::Keyword::Component>, 
+L<MooseX::Declare/class>
+
 =head2 Roles
 
     use CatalystX::Declare;
@@ -91,6 +105,45 @@ CatalystX::Declare - EXPERIMENTAL Declarative Syntax for Catalyst Applications
         }
     }
 
+See also: 
+L<CatalystX::Declare::Keyword::Role>, 
+L<CatalystX::Declare::Keyword::Action>, 
+L<MooseX::Declare/class>
+
+=head2 Views
+
+    use CatalystX::Declare;
+
+    view MyApp::Web::View::TT
+        extends Catalyst::View::TT {
+
+        $CLASS->config(
+            TEMPLATE_EXTENSION => '.html',
+        );
+    }
+
+See also: 
+L<CatalystX::Declare::Keyword::View>, 
+L<CatalystX::Declare::Keyword::Component>, 
+L<MooseX::Declare/class>
+
+=head2 Models
+
+    use CatalystX::Declare;
+
+    model MyApp::Web::Model::DBIC::Schema
+        extends Catalyst::Model::DBIC::Schema {
+
+        $CLASS->config(
+            schema_class => 'MyApp::Schema',
+        );
+    }
+
+See also: 
+L<CatalystX::Declare::Keyword::Model>, 
+L<CatalystX::Declare::Keyword::Component>, 
+L<MooseX::Declare/class>
+
 =head1 DESCRIPTION
 
 B<This module is EXPERIMENTAL>
@@ -118,12 +171,16 @@ syntax extensions:
 
 =item L<CatalystX::Declare::Keyword::Application>
 
-=item L<CatalystX::Declare::Keyword::Controller>
-
 =item L<CatalystX::Declare::Keyword::Action>
 
+=item L<CatalystX::Declare::Keyword::Controller>
+
 =item L<CatalystX::Declare::Keyword::Role>
 
+=item L<CatalystX::Declare::Keyword::View>
+
+=item L<CatalystX::Declare::Keyword::Model>
+
 =back
 
 Things like models, views, roles for request or response objects, can be built