use Catalyst's http method matching for REST

[catagits/Catalyst-Controller-DBIC-API.git] / lib / Catalyst / Controller / DBIC / API / Request.pm

diff --git a/lib/Catalyst/Controller/DBIC/API/Request.pm b/lib/Catalyst/Controller/DBIC/API/Request.pm
index 1361036..71aceb2 100644 (file)
--- a/lib/Catalyst/Controller/DBIC/API/Request.pm
+++ b/lib/Catalyst/Controller/DBIC/API/Request.pm
@@ -5,7 +5,8 @@ use Moose::Role;
 use MooseX::Types::Moose(':all');
 use namespace::autoclean;
 
-#XXX HACK to satisfy the used roles requirements as long as roles don't support +attr
+#XXX HACK to satisfy the used roles requirements
+# see Moose test 600_todo_tests/006_required_role_accessors.t
 sub _application {}
 sub _controller {}
 
@@ -33,15 +34,16 @@ has '_controller' =>
 
         $self->_set_class($new->class) if defined($new->class);
         $self->_set_application($new->_application);
-        $self->_set_prefetch_allows($new->prefetch_allows);
         $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