inline HTTP::Router::Declare callbacks

miyagawa · Mar 16, 2010 · 6b870f2 · 6b870f2
1 parent 4fc84bf
commit 6b870f2
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 46 deletions.
diff --git a/http-router-declare.pl b/http-router-declare.pl
@@ -8,12 +8,27 @@
 use MyApp::Hello;
 
 my $router = router {
-    match '/', { method => 'GET' },
+    match '/', { method => 'GET' }, to { action => sub {
-        to { controller => 'Hello', action => 'index' };
+        my($req, $p) = @_;
-    match '/blog/{year}/{month}', { method => 'GET' },
+        my $res = $req->new_response(200);
-        to { controller => 'Blog', action => 'monthly' };
+        $res->content_type("text/plain");
-    match '/comment', { method => 'POST' },
+        $res->content("Hello World");
-        to { controller => 'Blog', action => 'new_comment' };
+        $res;
+    } };
+    match '/blog/{year}/{month}', { method => 'GET' }, to { action => sub {
+        my($req, $p) = @_;
+        my $res = $req->new_response(200);
+        $res->content_type('text/html');
+        $res->content("Blog posts from $p->{year}/$p->{month}");
+        $res;
+    } };
+    match '/comment', { method => 'POST' }, to { action => sub {
+        my($req, $p) = @_;
+        my $res = $req->new_response(200);
+        $res->content_type('text/plain');
+        $res->content("Comment posted with body=" . $req->parameters->{body});
+        $res;
+    } };
 };
 
 sub {
@@ -22,8 +37,6 @@
         or return $req->new_response(404)->finalize;
 
     my $p = $match->params;
-    my $controller = "MyApp::$p->{controller}";
+    my $res = $p->{action}->($req, $p);
-    my $action = $p->{action};
-    my $res = $controller->$action($req, $p);
     $res->finalize;
 };
diff --git a/lib/MyApp/Blog.pm b/lib/MyApp/Blog.pm
diff --git a/lib/MyApp/Hello.pm b/lib/MyApp/Hello.pm