lib/Catalyst/Controller/DBIC/API/Request.pm

   1 package Catalyst::Controller::DBIC::API::Request;
   2
   3 #ABSTRACT: Provides a role to be applied to the Request object
   4 use Moose::Role;
   5 use MooseX::Types::Moose(':all');
   6 use namespace::autoclean;
   7
   8 #XXX HACK to satisfy the used roles requirements
   9 # see Moose test todo_tests/required_role_accessors.t
  10 sub _application { }
  11 sub _controller  { }
  12
  13 =attribute_private _application is: ro, isa: Object|ClassName, handles: Catalyst::Controller::DBIC::API::StoredResultSource
  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
  19 has '_application' => (
  20     is     => 'ro',
  21     writer => '_set_application',
  22     isa    => Object | ClassName,
  23 );
  24
  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 );
  36     },
  37     handles => ['prefetch_validator'],
  38 );
  39
  40 with 'Catalyst::Controller::DBIC::API::StoredResultSource',
  41     'Catalyst::Controller::DBIC::API::RequestArguments',
  42     'Catalyst::Controller::DBIC::API::Request::Context';
  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;