[Catalyst-commits] r7717 - in Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst: Action/SOAP Controller

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2008-05-07 21:28:07 +0100 (Wed, 07 May 2008)
New Revision: 7717

Modified:
   Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/DocumentLiteral.pm
   Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/HTTPGet.pm
   Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/RPCLiteral.pm
   Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
Log:
[C-C-SOAP] Getting read of NEXT:: in favour of next::method

Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/DocumentLiteral.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/DocumentLiteral.pm	2008-05-07 20:10:08 UTC (rev 7716)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/DocumentLiteral.pm	2008-05-07 20:28:07 UTC (rev 7717)
@@ -26,7 +26,7 @@
                    reason => 'Bad Body', detail =>
                    'Schema validation on the body failed: '.$@});
           } else {
-              $self->NEXT::execute($controller, $c, $body);
+              $self->next::method($controller, $c, $body);
           }
       }
   }

Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/HTTPGet.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/HTTPGet.pm	2008-05-07 20:10:08 UTC (rev 7716)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/HTTPGet.pm	2008-05-07 20:28:07 UTC (rev 7717)
@@ -6,7 +6,7 @@
         my $self = shift;
         my ( $controller, $c ) = @_;
         $self->prepare_soap_helper($controller,$c);
-        $self->NEXT::execute(@_);
+        $self->next::method(@_);
     }
 };
 

Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/RPCLiteral.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/RPCLiteral.pm	2008-05-07 20:10:08 UTC (rev 7716)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Action/SOAP/RPCLiteral.pm	2008-05-07 20:28:07 UTC (rev 7717)
@@ -1,11 +1,12 @@
 { package Catalyst::Action::SOAP::RPCLiteral;
 
   use base qw/Catalyst::Action::SOAP/;
+  use Class::C3;
 
   sub execute {
       my $self = shift;
       my ( $controller, $c ) = @_;
-      $self->NEXT::execute($controller, $c, $c->stash->{soap}->arguments);
+      $self->next::method($controller, $c, $c->stash->{soap}->arguments);
   }
 };
 

Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-05-07 20:10:08 UTC (rev 7716)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-05-07 20:28:07 UTC (rev 7717)
@@ -148,7 +148,10 @@
             push @{$self->rpc_endpoint_paths}, $path
               unless grep { $_ eq $path }
                 @{$self->rpc_endpoint_paths};
-            return $self->_parse_SOAP_attr($c, $name, $style.$use)
+            return
+              (
+               $self->_parse_SOAP_attr($c, $name, $style.$use),
+              );
         }
     }
 
@@ -163,7 +166,7 @@
             my $action = $self->create_action
               (
                name => '___base_rpc_endpoint',
-               code => sub { },
+               code => sub {  },
                reverse => ($namespace ? $namespace.'/' : '') . '___base_rpc_endpoint',
                namespace => $namespace,
                class => (ref $self || $self),
@@ -255,7 +258,7 @@
         my ($self, $c) = (shift, shift);
         my $soap = $c->stash->{soap};
 
-        return $self->NEXT::end($c, @_) unless $soap;
+        return $self->next::method($c, @_) unless $soap;
 
         if (scalar @{$c->error}) {
             $c->stash->{soap}->fault