From: John Napiorkowski <jjn1056@yahoo.com>
Date: Thu, 25 Nov 2010 00:49:20 +0000 (-0500)
Subject: updated testcase for new code
X-Git-Tag: v0.005~26
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FWeb-Simple.git;a=commitdiff_plain;h=6e42ffdef869704885d9c3e002ef97e063e2d411

updated testcase for new code
---

diff --git a/t/sub-dispatch-args.t b/t/sub-dispatch-args.t
index e0c6c5f..781fbf4 100644
--- a/t/sub-dispatch-args.t
+++ b/t/sub-dispatch-args.t
@@ -14,18 +14,18 @@ use Test::More (
 
     sub dispatch_request {
         sub (/) {
-            shift->show_landing(@_);
+            $_[0]->show_landing(@_);
         },
         sub(/...) {
             sub (GET + /user) {
-                shift->show_users(@_);
+                $_[0]->show_users(@_);
             },
             sub (/user/*) {
                 sub (GET) {
-                    shift->show_user(@_);
+                    $_[0]->show_user(@_);
                 },
                 sub (POST + %:id=&:@roles~) {
-                    shift->process_post(@_);
+                    $_[0]->process_post(@_);
                 }
             },
         }