factor dispatcher out into Web::Dispatch

[catagits/Web-Simple.git] / examples / bloggery / bloggery.cgi

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