X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=examples%2Fbloggery%2Fbloggery.cgi;h=b315b44f45800eb84bd35c41262336f9cc182d07;hb=48cab33d066488eabe275c2842b3a5feaaa83043;hp=9a5c94590f591b807b3aae80d69806bbdd57513f;hpb=950d88296fd5e69f70aac5cf049fc0b9648c3ed3;p=catagits%2FWeb-Simple.git

diff --git a/examples/bloggery/bloggery.cgi b/examples/bloggery/bloggery.cgi
index 9a5c945..b315b44 100755
--- a/examples/bloggery/bloggery.cgi
+++ b/examples/bloggery/bloggery.cgi
@@ -85,17 +85,18 @@ sub post {
 }
 
 sub dispatch_request {
+  my $self = shift;
   sub (GET + /) {
-    $_[0]->redispatch_to('/index.html');
+    redispatch_to '/index.html';
   },
   sub (.html) {
-    response_filter { $_[0]->render_html($_[1]) },
+    response_filter { $self->render_html($_[1]) },
   },
   sub (GET + /index) {
-    $_[0]->post_list
+    $self->post_list
   },
   sub (GET + /*) {
-    $_[0]->post($_[1])
+    $self->post($_[1])
   },
   sub (GET) {
     [ 404, [ 'Content-type', 'text/plain' ], [ 'Not found' ] ]