X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsub-dispatch-args.t;h=c7b5830d1c065c54644348a060fd32890353d56d;hb=48cab33d066488eabe275c2842b3a5feaaa83043;hp=781fbf4416edf02659c664b82e42424f0b327694;hpb=950d88296fd5e69f70aac5cf049fc0b9648c3ed3;p=catagits%2FWeb-Simple.git

diff --git a/t/sub-dispatch-args.t b/t/sub-dispatch-args.t
index 781fbf4..c7b5830 100644
--- a/t/sub-dispatch-args.t
+++ b/t/sub-dispatch-args.t
@@ -13,19 +13,20 @@ use Test::More (
     package t::Web::Simple::SubDispatchArgs;
 
     sub dispatch_request {
+        my $self = shift;
         sub (/) {
-            $_[0]->show_landing(@_);
+            $self->show_landing(@_);
         },
         sub(/...) {
             sub (GET + /user) {
-                $_[0]->show_users(@_);
+                $self->show_users(@_);
             },
             sub (/user/*) {
                 sub (GET) {
-                    $_[0]->show_user(@_);
+                    $self->show_user(@_);
                 },
                 sub (POST + %:id=&:@roles~) {
-                    $_[0]->process_post(@_);
+                    $self->process_post(@_);
                 }
             },
         }