/usr/share/perl5/Catalyst/Action/REST/ForBrowsers.pm is in libcatalyst-action-rest-perl 1.14-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | package Catalyst::Action::REST::ForBrowsers;
use Moose;
use namespace::autoclean;
our $VERSION = '1.14'; # VERSION
extends 'Catalyst::Action::REST';
use Catalyst::Request::REST::ForBrowsers;
sub BUILDARGS {
my $class = shift;
my $config = shift;
Catalyst::Request::REST::ForBrowsers->_insert_self_into( $config->{class} );
return $class->SUPER::BUILDARGS( $config, @_ );
}
override dispatch => sub {
my $self = shift;
my $c = shift;
my $req = $c->request();
return super()
unless $req->can('looks_like_browser')
&& $req->looks_like_browser()
&& uc $c->request()->method() eq 'GET';
my $controller = $c->component( $self->class );
my $rest_method = $self->name() . '_GET_html';
if ( $controller->action_for($rest_method)
|| $controller->can($rest_method) ) {
return $self->_dispatch_rest_method( $c, $rest_method );
}
return super();
};
__PACKAGE__->meta->make_immutable;
1;
=head1 NAME
Catalyst::Action::REST::ForBrowsers - Automated REST Method Dispatching that Accommodates Browsers
=head1 SYNOPSIS
sub foo :Local :ActionClass('REST::ForBrowsers') {
... do setup for HTTP method specific handlers ...
}
sub foo_GET : Private {
... do something for GET requests ...
}
sub foo_GET_html : Private {
... do something for GET requests from browsers ...
}
sub foo_PUT : Private {
... do something for PUT requests ...
}
=head1 DESCRIPTION
This class subclasses L<Catalyst::Action::REST> to add an additional
dispatching hook. If the request is a GET request I<and> the request looks
like it comes from a browser, it tries to dispatch to a C<GET_html> method
before trying to the C<GET> method instead. All other HTTP methods are
dispatched in the same way.
For example, in the synopsis above, calling GET on "/foo" from a browser will
end up calling the C<foo_GET_html> method. If the request is I<not> from a
browser, it will call C<foo_GET>.
See L<Catalyst::Action::REST> for more details on dispatching details.
=head1 METHODS
=over 4
=item dispatch
This method overrides the default dispatch mechanism to the re-dispatching
mechanism described above.
=back
=head1 SEE ALSO
You likely want to look at L<Catalyst::Controller::REST>, which implements a
sensible set of defaults for a controller doing REST.
This class automatically adds the
L<Catalyst::TraitFor::Request::REST::ForBrowsers> role to your request class.
=head1 CONTRIBUTORS
Dave Rolsky E<lt>autarch@urth.orgE<gt>
=head1 COPYRIGHT
Copyright the above named AUTHOR and CONTRIBUTORS
=head1 LICENSE
You may distribute this code under the same terms as Perl itself.
=cut
|