X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FSerializeBase.pm;h=e616f8a0e8db448dc3a4a7b5f6e1a3acc3eac9be;hb=9cd203c9c0d7099ff38fb9e1132459d76d19a360;hp=d4c53b9c4e63c6fd76b2750cdd0306015521c238;hpb=37694e6c0e75e03712116fcbe972ff5fd867411a;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/SerializeBase.pm b/lib/Catalyst/Action/SerializeBase.pm index d4c53b9..e616f8a 100644 --- a/lib/Catalyst/Action/SerializeBase.pm +++ b/lib/Catalyst/Action/SerializeBase.pm @@ -11,7 +11,6 @@ use warnings; use base 'Catalyst::Action'; use Module::Pluggable::Object; -use Data::Dump qw(dump); use Catalyst::Request::REST; use Catalyst::Utils (); @@ -51,9 +50,12 @@ sub _load_content_plugins { my $config; if ( exists $controller->{'serialize'} ) { - $c->log->info("Using deprecated configuration for Catalyst::Action::REST!"); - $c->log->info("Please see perldoc Catalyst::Action::REST for the update guide"); + $c->log->info("Catalyst::Action::REST - deprecated use of 'serialize' for configuration."); + $c->log->info("Please see 'CONFIGURATION' in Catalyst::Controller::REST."); $config = $controller->{'serialize'}; + # if they're using the deprecated config, they may be expecting a + # default mapping too. + $config->{map} ||= $controller->{map}; } else { $config = $controller; } @@ -186,4 +188,3 @@ Marchex, Inc. paid me while I developed this module. (http://www.marchex.com) You may distribute this code under the same terms as Perl itself. =cut -