From: John Napiorkowski <jjn1056@yahoo.com>
Date: Thu, 25 Nov 2010 01:16:28 +0000 (-0500)
Subject: fixing test example case
X-Git-Tag: v0.005~23
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FWeb-Simple.git;a=commitdiff_plain;h=7274da228335a0f20050a32e6a491ac9000134f7

fixing test example case
---

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