X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FAction%2FDeserialize.pm;h=2d5343fa8d9505787721a0ebc3b91b8911a68fe6;hb=eccb21379de1fbdc65740e0cb4158d3b4d055cab;hp=2d778b4e836821db15ac258f6bc155c91ffe93c4;hpb=7ad87df957f65463dba321ebe616e2581b7ff58f;p=catagits%2FCatalyst-Action-REST.git diff --git a/lib/Catalyst/Action/Deserialize.pm b/lib/Catalyst/Action/Deserialize.pm index 2d778b4..2d5343f 100644 --- a/lib/Catalyst/Action/Deserialize.pm +++ b/lib/Catalyst/Action/Deserialize.pm @@ -19,35 +19,35 @@ sub execute { my $self = shift; my ( $controller, $c, $test ) = @_; - my $nreq = bless($c->request, 'Catalyst::Request::REST'); + my $nreq = bless( $c->request, 'Catalyst::Request::REST' ); $c->request($nreq); - unless(defined($self->plugins)) { + unless ( defined( $self->plugins ) ) { my $mpo = Module::Pluggable::Object->new( - 'require' => 1, - 'search_path' => [ 'Catalyst::Action::Deserialize' ], + 'require' => 1, + 'search_path' => ['Catalyst::Action::Deserialize'], ); my @plugins = $mpo->plugins; - $self->plugins(\@plugins); + $self->plugins( \@plugins ); } my $content_type = $c->request->content_type; - my $sclass = 'Catalyst::Action::Deserialize::'; + my $sclass = 'Catalyst::Action::Deserialize::'; my $sarg; my $map = $controller->serialize->{'map'}; - if (exists($map->{$content_type})) { + if ( exists( $map->{$content_type} ) ) { my $mc; - if (ref($map->{$content_type}) eq "ARRAY") { - $mc = $map->{$content_type}->[0]; + if ( ref( $map->{$content_type} ) eq "ARRAY" ) { + $mc = $map->{$content_type}->[0]; $sarg = $map->{$content_type}->[1]; } else { $mc = $map->{$content_type}; } $sclass .= $mc; - if (! grep(/^$sclass$/, @{$self->plugins})) { + if ( !grep( /^$sclass$/, @{ $self->plugins } ) ) { die "Cannot find plugin $sclass for $content_type!"; } } else { - if (exists($controller->serialize->{'default'})) { + if ( exists( $controller->serialize->{'default'} ) ) { $sclass .= $controller->serialize->{'default'}; } else { die "I cannot find a default serializer!"; @@ -55,17 +55,17 @@ sub execute { } my @demethods = qw(POST PUT OPTIONS); - my $method = $c->request->method; - if (grep /^$method$/, @demethods) { - if (defined($sarg)) { - $sclass->execute($controller, $c, $sarg); + my $method = $c->request->method; + if ( grep /^$method$/, @demethods ) { + if ( defined($sarg) ) { + $sclass->execute( $controller, $c, $sarg ); } else { - $sclass->execute($controller, $c); + $sclass->execute( $controller, $c ); } $self->NEXT::execute( @_, ); } else { - $self->NEXT::execute( @_ ); + $self->NEXT::execute(@_); } -}; +} 1;