[Catalyst-commits] r11415 - in trunk/Catalyst-Plugin-Server: . t/dispatch/lib t/dispatch/lib/TestApp t/dispatch/lib/TestApp/Controller

[kane at dev.catalyst.perl.org]

Author: kane
Date: 2009-09-25 10:39:57 +0000 (Fri, 25 Sep 2009)
New Revision: 11415

Added:
   trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp/
   trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp/Controller/
   trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp/Controller/Root.pm
Modified:
   trunk/Catalyst-Plugin-Server/
   trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp.pm
Log:
 r8437 at myriad-wifi:  kane | 2009-09-25 12:39:36 +0200
 * move the testapp controller to its own file



Property changes on: trunk/Catalyst-Plugin-Server
___________________________________________________________________
Name: svk:merge
   - 8a9521aa-ff93-41d6-9f87-b05cafcdab40:/local/cat/Catalyst-Plugin-Server:8436
e5869dfe-760d-0410-9433-71cdb9993b4e:/local/Catalyst-Plugin-Server:7854
   + 8a9521aa-ff93-41d6-9f87-b05cafcdab40:/local/cat/Catalyst-Plugin-Server:8437
e5869dfe-760d-0410-9433-71cdb9993b4e:/local/Catalyst-Plugin-Server:7854

Added: trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp/Controller/Root.pm
===================================================================
--- trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp/Controller/Root.pm	                        (rev 0)
+++ trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp/Controller/Root.pm	2009-09-25 10:39:57 UTC (rev 11415)
@@ -0,0 +1,12 @@
+package TestApp::Controller::Root;
+use base 'Catalyst::Controller';
+
+### accept every xmlrpc request here
+sub my_dispatcher : XMLRPCRegex('.') {
+    my( $self, $c ) = @_;
+
+    ### return the name of the method you called    
+    $c->stash->{'xmlrpc'} = $c->request->xmlrpc->method;
+}
+
+1;

Modified: trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp.pm
===================================================================
--- trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp.pm	2009-09-25 10:39:52 UTC (rev 11414)
+++ trunk/Catalyst-Plugin-Server/t/dispatch/lib/TestApp.pm	2009-09-25 10:39:57 UTC (rev 11415)
@@ -14,12 +14,4 @@
 
 TestApp->setup;
 
-### accept every xmlrpc request here
-sub my_dispatcher : XMLRPCRegex('.') {
-    my( $self, $c ) = @_;
-
-    ### return the name of the method you called    
-    $c->stash->{'xmlrpc'} = $c->request->xmlrpc->method;
-}
-
 1;