X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsub-dispatch-args.t;h=e0c6c5f181500aeb470fe0601df65288edfff83b;hb=b9e047efee66eb38fee7621367231783b4842076;hp=ac5128be3c7f41117bf30d61ecf98f5456ecff75;hpb=e41225325bb4973e3355c6826d3b8bce288592a0;p=catagits%2FWeb-Simple.git

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