File Coverage

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

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod			n/a
total	12	14	85.7

package Catalyst::Controller::DBIC::API::Request;
$Catalyst::Controller::DBIC::API::Request::VERSION = '2.008001';
#ABSTRACT: Provides a role to be applied to the Request object
use Moose::Role;
use MooseX::Types::Moose(':all');
use namespace::autoclean;

#XXX HACK to satisfy the used roles requirements
# see Moose test todo_tests/required_role_accessors.t
sub _application { }
sub _controller  { }


has '_application' => (
    is     => 'ro',
    writer => '_set_application',
    isa    => Object | ClassName,
);

has '_controller' => (
    is      => 'ro',
    writer  => '_set_controller',
    isa     => Object,
    trigger => sub {
        my ( $self, $new ) = @_;

        $self->_set_class( $new->class ) if defined( $new->class );
        $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',
    'Catalyst::Controller::DBIC::API::RequestArguments',
    'Catalyst::Controller::DBIC::API::Request::Context';


1;

__END__

=pod

=head1 NAME

Catalyst::Controller::DBIC::API::Request - Provides a role to be applied to the Request object

=head1 VERSION

version 2.008001

=head1 DESCRIPTION

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.

=head1 PRIVATE_ATTRIBUTES

=head2 _application

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>.

=head1 AUTHORS

=over 4

=item *

Nicholas Perez <[e-mail]>

=item *

Luke Saunders <[e-mail]>

=item *

Alexander Hartmaier <[e-mail]>

=item *

Florian Ragwitz <[e-mail]>

=item *

Oleg Kostyuk <[e-mail]>

=item *

Samuel Kaufman <[e-mail]>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2019 by Luke Saunders, Nicholas Perez, Alexander Hartmaier, et al.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut