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

diff --git a/lib/Catalyst/Controller/DBIC/API/Request.pm b/lib/Catalyst/Controller/DBIC/API/Request.pm
index c98e74f..71aceb2 100644
--- a/lib/Catalyst/Controller/DBIC/API/Request.pm
+++ b/lib/Catalyst/Controller/DBIC/API/Request.pm
@@ -2,15 +2,15 @@ package Catalyst::Controller::DBIC::API::Request;
 
 #ABSTRACT: Provides a role to be applied to the Request object
 use Moose::Role;
-use MooseX::Aliases;
 use MooseX::Types::Moose(':all');
 use namespace::autoclean;
 
-#XXX HACK
+#XXX HACK to satisfy the used roles requirements
+# see Moose test 600_todo_tests/006_required_role_accessors.t
 sub _application {}
 sub _controller {}
 
-=attribute_private _application is: ro, isa: Object, handles: Catalyst::Controller::DBIC::API::StoredResultSource
+=attribute_private _application is: ro, isa: Object|ClassName, handles: Catalyst::Controller::DBIC::API::StoredResultSource
 
 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>
 
@@ -33,16 +33,17 @@ has '_controller' =>
         my ($self, $new) = @_;
 
         $self->_set_class($new->class) if defined($new->class);
-        $self->_set_application($new->_application); 
-        $self->_set_prefetch_allows($new->prefetch_allows);
+        $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';
-with 'Catalyst::Controller::DBIC::API::RequestArguments';
-with 'Catalyst::Controller::DBIC::API::Request::Context';
+
+with 'Catalyst::Controller::DBIC::API::StoredResultSource',
+     'Catalyst::Controller::DBIC::API::RequestArguments',
+     'Catalyst::Controller::DBIC::API::Request::Context';
 
 =head1 DESCRIPTION