PlackでとりあえずJSONだけ返すサーバーを立てる

メモです。

下のjsonに特に意味はありません。
API完成を待っていて開発進まない的なシチュエーションがあったのでつくりました。

他の言語だとどうなるんでしょうね？

#!/usr/bin/env perl
use strict;
use warnings;
use Plack::Request;
my $json =<<EOF;
{
   "items":[
      { "year" : 1954 },
      { "year" : 2000 }
  ]
}
EOF

sub {
    my $req = Plack::Request->new($_[0]);
    if ($req->path eq '/') {
        warn dump $req->parameters->multi;
        return [200, [
            "Content-Type" => "text/javascript", 
            "Access-Control-Allow-Origin" => "*", 
            "Access-Control-Allow-Headers" => "X-Requested-With"
        ], [$json]];
    }
    return [404, ["Content-Type" => "text/plain"], ['404 Not Found']];
};