return 1;
}
-1;
\ No newline at end of file
+1;
my ( $controller, $c, $serializer ) = @_;
my $stash_key = (
- $controller->config->{'serialize'} ?
- $controller->config->{'serialize'}->{'stash_key'} :
- $controller->config->{'stash_key'}
+ $controller->{'serialize'} ?
+ $controller->{'serialize'}->{'stash_key'} :
+ $controller->{'stash_key'}
) || 'rest';
my $sp = $serializer;
$sp =~ s/::/\//g;
my ( $controller, $c ) = @_;
my $stash_key = (
- $controller->config->{'serialize'} ?
- $controller->config->{'serialize'}->{'stash_key'} :
- $controller->config->{'stash_key'}
+ $controller->{'serialize'} ?
+ $controller->{'serialize'}->{'stash_key'} :
+ $controller->{'stash_key'}
) || 'rest';
my $output;
eval {
my ( $controller, $c, $view ) = @_;
my $stash_key = (
- $controller->config->{'serialize'} ?
- $controller->config->{'serialize'}->{'stash_key'} :
- $controller->config->{'stash_key'}
+ $controller->{'serialize'} ?
+ $controller->{'serialize'}->{'stash_key'} :
+ $controller->{'stash_key'}
) || 'rest';
if ( !$c->view($view) ) {
my $xs = XML::Simple->new(ForceArray => 0,);
my $stash_key = (
- $controller->config->{'serialize'} ?
- $controller->config->{'serialize'}->{'stash_key'} :
- $controller->config->{'stash_key'}
+ $controller->{'serialize'} ?
+ $controller->{'serialize'}->{'stash_key'} :
+ $controller->{'stash_key'}
) || 'rest';
my $output;
eval {
my ( $controller, $c ) = @_;
my $stash_key = (
- $controller->config->{'serialize'} ?
- $controller->config->{'serialize'}->{'stash_key'} :
- $controller->config->{'stash_key'}
+ $controller->{'serialize'} ?
+ $controller->{'serialize'}->{'stash_key'} :
+ $controller->{'stash_key'}
) || 'rest';
my $output;
eval {
my ( $controller, $c ) = @_;
my $stash_key = (
- $controller->config->{'serialize'} ?
- $controller->config->{'serialize'}->{'stash_key'} :
- $controller->config->{'stash_key'}
+ $controller->{'serialize'} ?
+ $controller->{'serialize'}->{'stash_key'} :
+ $controller->{'stash_key'}
) || 'rest';
my $app = $c->config->{'name'} || '';
my $output = "<html>";
my $config;
- if ( exists $controller->config->{'serialize'} ) {
+ 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");
- $config = $controller->config->{'serialize'};
+ $config = $controller->{'serialize'};
} else {
- $config = $controller->config;
+ $config = $controller;
}
$map = $config->{'map'};