sub new {
my $class = shift;
my $config = shift;
- Catalyst::Request::REST->_insert_self_into(
- Catalyst::Utils::class2appclass($config->{class})
- );
+ Catalyst::Request::REST->_insert_self_into( $config->{class} );
return $class->SUPER::new($config, @_);
}
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.
You may distribute this code under the same terms as Perl itself.
=cut
-