1 package Catalyst::Action::REST::ForBrowsers;
4 use namespace::autoclean;
6 extends 'Catalyst::Action::REST';
7 use Catalyst::Request::REST::ForBrowsers;
12 Catalyst::Request::REST::ForBrowsers->_insert_self_into( $config->{class} );
13 return $class->SUPER::BUILDARGS( $config, @_ );
16 override dispatch => sub {
20 my $req = $c->request();
23 unless $req->can('looks_like_browser')
24 && $req->looks_like_browser()
25 && uc $c->request()->method() eq 'GET';
27 my $controller = $c->component( $self->class );
28 my $rest_method = $self->name() . '_GET_html';
30 if ( $controller->action_for($rest_method)
31 || $controller->can($rest_method) ) {
33 return $self->_dispatch_rest_method( $c, $rest_method );
39 __PACKAGE__->meta->make_immutable;
45 Catalyst::Action::REST::ForBrowsers - Automated REST Method Dispatching that Accommodates Browsers
49 sub foo :Local :ActionClass('REST::ForBrowsers') {
50 ... do setup for HTTP method specific handlers ...
53 sub foo_GET : Private {
54 ... do something for GET requests ...
57 sub foo_GET_html : Private {
58 ... do something for GET requests from browsers ...
61 sub foo_PUT : Private {
62 ... do something for PUT requests ...
67 This class subclasses L<Catalyst::Action::REST> to add an additional
68 dispatching hook. If the request is a GET request I<and> the request looks
69 like it comes from a browser, it tries to dispatch to a C<GET_html> method
70 before trying to the C<GET> method instead. All other HTTP methods are
71 dispatched in the same way.
73 For example, in the synopsis above, calling GET on "/foo" from a browser will
74 end up calling the C<foo_GET_html> method. If the request is I<not> from a
75 browser, it will call C<foo_GET>.
77 See L<Catalyst::Action::REST> for more details on dispatching details.
85 This method overrides the default dispatch mechanism to the re-dispatching
86 mechanism described above.
92 You likely want to look at L<Catalyst::Controller::REST>, which implements a
93 sensible set of defaults for a controller doing REST.
95 This class automatically adds the
96 L<Catalyst::TraitFor::Request::REST::ForBrowsers> role to your request class.
100 Dave Rolsky E<lt>autarch@urth.orgE<gt>
104 Copyright the above named AUTHOR and CONTRIBUTORS
108 You may distribute this code under the same terms as Perl itself.