X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Controller-DBIC-API.git;a=blobdiff_plain;f=lib%2FCatalyst%2FController%2FDBIC%2FAPI%2FRequest.pm;h=3470e92eb3f6d7612cbb3cd1bb5ef799dc9f82d6;hp=71aceb27a938d88b63e20ddaeba6721938eefb11;hb=HEAD;hpb=4e5983f2a904f894762e61c2dff962a37da5ef92

diff --git a/lib/Catalyst/Controller/DBIC/API/Request.pm b/lib/Catalyst/Controller/DBIC/API/Request.pm
index 71aceb2..3470e92 100644
--- a/lib/Catalyst/Controller/DBIC/API/Request.pm
+++ b/lib/Catalyst/Controller/DBIC/API/Request.pm
@@ -6,48 +6,48 @@ use MooseX::Types::Moose(':all');
 use namespace::autoclean;
 
 #XXX HACK to satisfy the used roles requirements
-# see Moose test 600_todo_tests/006_required_role_accessors.t
-sub _application {}
-sub _controller {}
+# see Moose test todo_tests/required_role_accessors.t
+sub _application { }
+sub _controller  { }
 
-=attribute_private _application is: ro, isa: Object|ClassName, handles: Catalyst::Controller::DBIC::API::StoredResultSource
+=attribute_private _application
 
-This attribute helps bridge between the request guts and the application guts; allows request argument validation against the schema. This is set during L<Catalyst::Controller::DBIC::API/inflate_request>
+This attribute helps bridge between the request guts and the application guts;
+allows request argument validation against the schema. This is set during
+L<Catalyst::Controller::DBIC::API/inflate_request>.
 
 =cut
 
-has '_application' =>
-(
-    is => 'ro',
+has '_application' => (
+    is     => 'ro',
     writer => '_set_application',
-    isa => Object|ClassName,
+    isa    => Object | ClassName,
 );
 
-has '_controller' =>
-(
-    is => 'ro',
-    writer => '_set_controller',
-    isa => Object,
-    trigger => sub
-    {
-        my ($self, $new) = @_;
-
-        $self->_set_class($new->class) if defined($new->class);
-        $self->_set_application($new->_application);
-        $self->_set_search_exposes($new->search_exposes);
-        $self->_set_select_exposes($new->select_exposes);
+has '_controller' => (
+    is      => 'ro',
+    writer  => '_set_controller',
+    isa     => Object,
+    trigger => sub {
+        my ( $self, $new ) = @_;
+
+        $self->_set_class( $new->class ) if defined( $new->class );
+        $self->_set_application( $new->_application );
+        $self->_set_search_exposes( $new->search_exposes );
+        $self->_set_select_exposes( $new->select_exposes );
     },
     handles => ['prefetch_validator'],
 );
 
-
 with 'Catalyst::Controller::DBIC::API::StoredResultSource',
-     'Catalyst::Controller::DBIC::API::RequestArguments',
-     'Catalyst::Controller::DBIC::API::Request::Context';
+    'Catalyst::Controller::DBIC::API::RequestArguments',
+    'Catalyst::Controller::DBIC::API::Request::Context';
 
 =head1 DESCRIPTION
 
-Please see L<Catalyst::Controller::DBIC::API::RequestArguments> and L<Catalyst::Controller::DBIC::API::Request::Context> for the details of this class, as both of those roles are consumed in this role.
+Please see L<Catalyst::Controller::DBIC::API::RequestArguments> and
+L<Catalyst::Controller::DBIC::API::Request::Context> for the details of this
+class, as both of those roles are consumed in this role.
 
 =cut