[Catalyst-commits] r7564 - Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2008-04-04 20:42:23 +0100 (Fri, 04 Apr 2008)
New Revision: 7564

Modified:
   Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
Log:
[C-C-SOAP] config usage cleanup.

Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-04-04 19:41:33 UTC (rev 7563)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-04-04 19:42:23 UTC (rev 7564)
@@ -110,15 +110,15 @@
               );
         } else {
             use Data::Dumper;
-            $self->{actions}{_base_rpc_endpoint}{Path} ||= [];
-            push @{$self->{actions}{_base_rpc_endpoint}{Path}}, $path
+            $self->{actions}{base_rpc_endpoint}{Path} ||= [];
+            push @{$self->{actions}{base_rpc_endpoint}{Path}}, $path
               unless grep { $_ eq $path }
                 @{$self->{actions}{_base_rpc_endpoint}{Path}};
             return $self->_parse_SOAP_attr($c, $name, $style.$use)
         }
     }
 
-    sub _base_rpc_endpoint :ActionClass('SOAP::RPCEndpoint') { };
+    sub base_rpc_endpoint :ActionClass('SOAP::RPCEndpoint') { };
 
     sub _parse_SOAP_attr {
         my ($self, $c, $name, $value) = @_;