#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>
my ($self, $new) = @_;
$self->_set_class($new->class) if defined($new->class);
- $self->_set_application($new->_application);
+ $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);
}
);
-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