X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FController%2FREST.pm;h=99addacf7be834adff4d4b5810efac52c9841946;hb=d3f3a2ed11595db3f5d10e8ae395a04209670356;hp=e855c9ced79f0f0333c0314b487eda8ad99809d7;hpb=eaa7cec1399ed978f8a8083c34283ba9601edcc1;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Controller/REST.pm b/lib/Catalyst/Controller/REST.pm index e855c9c..99addac 100644 --- a/lib/Catalyst/Controller/REST.pm +++ b/lib/Catalyst/Controller/REST.pm @@ -2,7 +2,7 @@ package Catalyst::Controller::REST; use strict; use warnings; -our $VERSION = '0.78'; +our $VERSION = '0.79'; $VERSION = eval $VERSION; =head1 NAME @@ -12,8 +12,10 @@ Catalyst::Controller::REST - A RESTful controller =head1 SYNOPSIS package Foo::Controller::Bar; - - use base 'Catalyst::Controller::REST'; + use Moose; + use namespace::autoclean; + + BEGIN { extends 'Catalyst::Controller::REST' } sub thing : Local : ActionClass('REST') { } @@ -34,7 +36,7 @@ Catalyst::Controller::REST - A RESTful controller # Answer PUT requests to "thing" sub thing_PUT { - .. some action .. + ... some action ... } =head1 DESCRIPTION @@ -76,7 +78,12 @@ If we do not have (or cannot run) a serializer for a given content-type, a 415 To make your Controller RESTful, simply have it - use base 'Catalyst::Controller::REST'; + BEGIN { extends 'Catalyst::Controller::REST' } + +=head1 CONFIGURATION + +See L. Note that the C +key has been deprecated. =head1 SERIALIZATION @@ -85,7 +92,7 @@ responses, and deserialize any POST, PUT or OPTIONS requests. It evaluates which serializer to use by mapping a content-type to a Serialization module. We select the content-type based on: -=over 2 +=over =item B @@ -108,56 +115,56 @@ A given serialization mechanism is only available if you have the underlying modules installed. For example, you can't use XML::Simple if it's not already installed. -In addition, each serializer has it's quirks in terms of what sorts of data +In addition, each serializer has its quirks in terms of what sorts of data structures it will properly handle. L makes no attempt to save you from yourself in this regard. :) =over 2 -=item C => C +=item * C => C Returns YAML generated by L. -=item C => C +=item * C => C This uses L and L to generate YAML with all URLs turned to hyperlinks. Only useable for Serialization. -=item C => C +=item * C => C Uses L to generate JSON output. It is strongly advised to also have L installed. The C content type is supported but is deprecated and you will receive warnings in your log. -=item C => C +=item * C => C Uses the L module to generate L output. -=item C => C +=item * C => C Uses the L module to generate L output. -=item C => C +=item * C => C Uses the L module to generate L output. -=item C => C +=item * C => C Uses the L module to generate L output. -=item C => C +=item * C => C Uses the L module to generate L output. -=item C => C +=item * C => C Uses the L module to generate L output. -=item C => C +=item * C => C Uses the L module to generate L output. -=item C => C +=item * C => C Uses L to generate XML output. This is probably not suitable for any real heavy XML work. Due to Ls requirement that the data @@ -165,37 +172,63 @@ you serialize be a HASHREF, we transform outgoing data to be in the form of: { data => $yourdata } -=item L +=item * L Uses a regular Catalyst view. For example, if you wanted to have your -C and C views rendered by TT: +C and C views rendered by TT, set: - 'text/html' => [ 'View', 'TT' ], - 'text/xml' => [ 'View', 'XML' ], + __PACKAGE__->config( + map => { + 'text/html' => [ 'View', 'TT' ], + 'text/xml' => [ 'View', 'XML' ], + } + ); -Will do the trick nicely. +Your views should have a C method like this: -=back + sub process { + my ( $self, $c, $stash_key ) = @_; -By default, L will return a C<415 Unsupported Media Type> -response if an attempt to use an unsupported content-type is made. You -can ensure that something is always returned by setting the C -config option: + my $output; + eval { + $output = $self->serialize( $c->stash->{$stash_key} ); + }; + return $@ if $@; - __PACKAGE__->config->{'default'} = 'text/x-yaml'; + $c->response->body( $output ); + return 1; # important + } + + sub serialize { + my ( $self, $data ) = @_; -Would make it always fall back to the serializer plugin defined for text/x-yaml. + my $serialized = ... process $data here ... -Implementing new Serialization formats is easy! Contributions -are most welcome! See L and -L for more information. + return $serialized; + } + +=back + +By default, L will return a +C<415 Unsupported Media Type> response if an attempt to use an unsupported +content-type is made. You can ensure that something is always returned by +setting the C config option: + + __PACKAGE__->config(default => 'text/x-yaml'); + +would make it always fall back to the serializer plugin defined for +C. =head1 CUSTOM SERIALIZERS -If you would like to implement a custom serializer, you should create two new -modules in the L and -L namespace. Then assign your new class -to the content-type's you want, and you're done. +Implementing new Serialization formats is easy! Contributions +are most welcome! If you would like to implement a custom serializer, +you should create two new modules in the L +and L namespace. Then assign your new +class to the content-type's you want, and you're done. + +See L and L +for more information. =head1 STATUS HELPERS @@ -208,7 +241,7 @@ refer to it at: L. These routines are all implemented as regular subroutines, and as such require you pass the current context ($c) as the first argument. -=over 4 +=over =cut @@ -228,9 +261,9 @@ __PACKAGE__->config( 'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ], 'text/x-data-denter' => [ 'Data::Serializer', 'Data::Denter' ], 'text/x-data-taxi' => [ 'Data::Serializer', 'Data::Taxi' ], - 'application/x-storable' => [ 'Data::Serializer', 'Storable' ], - 'application/x-freezethaw' => [ 'Data::Serializer', 'FreezeThaw' ], - 'text/x-config-general' => [ 'Data::Serializer', 'Config::General' ], + 'application/x-storable' => [ 'Data::Serializer', 'Storable' ], + 'application/x-freezethaw' => [ 'Data::Serializer', 'FreezeThaw' ], + 'text/x-config-general' => [ 'Data::Serializer', 'Config::General' ], 'text/x-php-serialization' => [ 'Data::Serializer', 'PHP::Serialization' ], }, ); @@ -452,26 +485,21 @@ L and L. It should This class provides a default configuration for Serialization. It is currently: __PACKAGE__->config( - serialize => { - 'stash_key' => 'rest', - 'map' => { - 'text/html' => 'YAML::HTML', - 'text/xml' => 'XML::Simple', - 'text/x-yaml' => 'YAML', - 'application/json' => 'JSON', - 'text/x-json' => 'JSON', - 'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ], - 'text/x-data-denter' => [ 'Data::Serializer', 'Data::Denter' ], - 'text/x-data-taxi' => [ 'Data::Serializer', 'Data::Taxi' ], - 'application/x-storable' => [ 'Data::Serializer', 'Storable' -], - 'application/x-freezethaw' => [ 'Data::Serializer', 'FreezeThaw' -], - 'text/x-config-general' => [ 'Data::Serializer', 'Config::General' ] -, - 'text/x-php-serialization' => [ 'Data::Serializer', 'PHP::Serialization' ], - }, - } + 'stash_key' => 'rest', + 'map' => { + 'text/html' => 'YAML::HTML', + 'text/xml' => 'XML::Simple', + 'text/x-yaml' => 'YAML', + 'application/json' => 'JSON', + 'text/x-json' => 'JSON', + 'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ], + 'text/x-data-denter' => [ 'Data::Serializer', 'Data::Denter' ], + 'text/x-data-taxi' => [ 'Data::Serializer', 'Data::Taxi' ], + 'application/x-storable' => [ 'Data::Serializer', 'Storable' ], + 'application/x-freezethaw' => [ 'Data::Serializer', 'FreezeThaw' ], + 'text/x-config-general' => [ 'Data::Serializer', 'Config::General' ], + 'text/x-php-serialization' => [ 'Data::Serializer', 'PHP::Serialization' ], + }, ); You can read the full set of options for this configuration block in @@ -522,15 +550,9 @@ Wikipedia! http://en.wikipedia.org/wiki/Representational_State_Transfer The REST Wiki: http://rest.blueoxen.net/cgi-bin/wiki.pl?FrontPage -=head1 AUTHOR - -Adam Jacob , with lots of help from mst and jrockway - -Marchex, Inc. paid me while I developed this module. (http://www.marchex.com) - -=head1 MAINTAINER +=head1 AUTHORS -J. Shirley +See L for authors. =head1 LICENSE