[Catalyst-commits] r14523 - CatalystX-CRUD/CatalystX-CRUD-Controller-REST/trunk/lib/CatalystX/CRUD/Controller

karpet at dev.catalyst.perl.org karpet at dev.catalyst.perl.org
Mon May 12 19:42:59 GMT 2014


Author: karpet
Date: 2014-05-12 19:42:59 +0000 (Mon, 12 May 2014)
New Revision: 14523

Modified:
   CatalystX-CRUD/CatalystX-CRUD-Controller-REST/trunk/lib/CatalystX/CRUD/Controller/REST.pm
Log:
ptidy only

Modified: CatalystX-CRUD/CatalystX-CRUD-Controller-REST/trunk/lib/CatalystX/CRUD/Controller/REST.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Controller-REST/trunk/lib/CatalystX/CRUD/Controller/REST.pm	2014-05-11 20:10:10 UTC (rev 14522)
+++ CatalystX-CRUD/CatalystX-CRUD-Controller-REST/trunk/lib/CatalystX/CRUD/Controller/REST.pm	2014-05-12 19:42:59 UTC (rev 14523)
@@ -386,9 +386,8 @@
 sub three_args_GET {
     my ( $self, $c, $id, $rel, $rel_id ) = @_;
     return if $c->stash->{fetch_failed};
-    my $result
-        = $self->do_model( $c, 'find_related', $c->stash->{object}, $rel,
-        $rel_id, );
+    my $result = $self->do_model( $c, 'find_related', $c->stash->{object},
+        $rel, $rel_id, );
     if ( !$result or ( ref $result eq 'ARRAY' and !@$result ) ) {
         my $err_msg = sprintf( "No such %s with id '%s'", $rel, $rel_id );
         $self->status_not_found( $c, message => $err_msg );
@@ -422,8 +421,8 @@
         return;
     }
 
-    my $rt = $self->do_model( $c, 'rm_related', $c->stash->{object}, $rel,
-        $rel_id, );
+    my $rt = $self->do_model( $c, 'rm_related', $c->stash->{object},
+        $rel, $rel_id, );
     if ($rt) {
         $self->status_no_content($c);
     }
@@ -444,8 +443,8 @@
 sub three_args_POST {
     my ( $self, $c, $id, $rel, $rel_id ) = @_;
     return if $c->stash->{fetch_failed};
-    my $rt = $self->do_model( $c, 'add_related', $c->stash->{object}, $rel,
-        $rel_id, );
+    my $rt = $self->do_model( $c, 'add_related', $c->stash->{object},
+        $rel, $rel_id, );
     if ($rt) {
         $self->status_no_content($c);
     }
@@ -466,8 +465,8 @@
 sub three_args_PUT {
     my ( $self, $c, $id, $rel, $rel_id ) = @_;
     return if $c->stash->{fetch_failed};
-    my $rt = $self->do_model( $c, 'put_related', $c->stash->{object}, $rel,
-        $rel_id, );
+    my $rt = $self->do_model( $c, 'put_related', $c->stash->{object},
+        $rel, $rel_id, );
 
     if ($rt) {
         $self->status_no_content($c);




More information about the Catalyst-commits mailing list