Commit | Line | Data |
d2739840 |
1 | package Catalyst::Controller::DBIC::API::Request; |
2 | |
3 | #ABSTRACT: Provides a role to be applied to the Request object |
4 | use Moose::Role; |
d2739840 |
5 | use MooseX::Types::Moose(':all'); |
6 | use namespace::autoclean; |
7 | |
4bbabfcf |
8 | #XXX HACK to satisfy the used roles requirements |
8ea592cb |
9 | # see Moose test todo_tests/required_role_accessors.t |
10 | sub _application { } |
11 | sub _controller { } |
d2739840 |
12 | |
ebfdba9d |
13 | =attribute_private _application is: ro, isa: Object|ClassName, handles: Catalyst::Controller::DBIC::API::StoredResultSource |
d2739840 |
14 | |
15 | 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> |
16 | |
17 | =cut |
18 | |
8ea592cb |
19 | has '_application' => ( |
20 | is => 'ro', |
d2739840 |
21 | writer => '_set_application', |
8ea592cb |
22 | isa => Object | ClassName, |
d2739840 |
23 | ); |
24 | |
8ea592cb |
25 | has '_controller' => ( |
26 | is => 'ro', |
27 | writer => '_set_controller', |
28 | isa => Object, |
29 | trigger => sub { |
30 | my ( $self, $new ) = @_; |
31 | |
32 | $self->_set_class( $new->class ) if defined( $new->class ); |
33 | $self->_set_application( $new->_application ); |
34 | $self->_set_search_exposes( $new->search_exposes ); |
35 | $self->_set_select_exposes( $new->select_exposes ); |
4e5983f2 |
36 | }, |
37 | handles => ['prefetch_validator'], |
d2739840 |
38 | ); |
39 | |
d72e5927 |
40 | with 'Catalyst::Controller::DBIC::API::StoredResultSource', |
8ea592cb |
41 | 'Catalyst::Controller::DBIC::API::RequestArguments', |
42 | 'Catalyst::Controller::DBIC::API::Request::Context'; |
d2739840 |
43 | |
44 | =head1 DESCRIPTION |
45 | |
46 | 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. |
47 | |
48 | =cut |
49 | |
50 | 1; |