Web::Dispatcher::Simple, DBIx::Simple::DataSection, Text::MicroTemplate::DataSectionで3分Sinatra風quick hack

Web::Dispatcher::Simple, DBIx::Simple::DataSectionとquick hackをするためのモジュールを作ってみました。これに加えて、Text::MicroTemplate::DataSectionを使うことで、3分くらいでsinatra風なアプリが簡単に作れます。

app.psgiを、以下のように書きます。

use strict;
use warnings;
use Web::Dispatcher::Simple;
use DBIx::Simple::DataSection;
use Text::MicroTemplate::DataSection qw(render_mt);

my $db = DBIx::Simple::DataSection->connect(&#39;dbi:SQLite:dbname=:memory:&#39;, &#39;&#39;, &#39;&#39;, { RaiseError => 1 });
$db->query_by_sql(&#39;create.sql&#39;);

my $app = router {
  get &#39;/api&#39; => sub {
      my $req = shift;
      my $hello = render_mt(&#39;index.mt&#39;);
      my $res = $req->new_response(200);
      $res->body($hello);
      $res;
  },
  post &#39;/comment/{id}&#39; => sub {
    my ($req, $args)  = @_;
    my $id = $args->{id};
    $db->query_by_sql(&#39;insert_person&#39;, $id);
    my $res = $req->new_response(200);
    $res;
  }
};

__DATA__
@@ create.sql
CREATE TABLE person (id)

@@ insert_person
INSERT INTO person VALUES (??)

@@ index.mt
<html>
 <body>Hello</body>
</html>

あとは、plackupで動かすだけです！
Enjoy!

# あとは、レスポンスをもっと簡単に返せると、sinatra風ですよね！