PerlによるDSLの作り方

Perl Beginners #14

Jul 25th, 2014

Profile

• id: Songmu (ソンムー)
• Masayuki Matsuki
• http://www.songmu.jp/riji/
• https://metacpan.org/author/SONGMU
• http://songmu.jp/dailyviewer/daily2.cgi
• 趣味はCPANizeです

Recent Output

• Task::BeLike::SONGMU
• Test::Requires::Scanner
• Test::mysqld::DatadirDumper
• App::CPANGhq

最近本を売りました

バーコードリーダー

• キーボード扱い
• バーコードを読み取ると、一行が標準入力に入ってくる
• ちなみに書籍のバーコードの上はISBN
• ISBNをAPI問い合わせすればいい
• 最近だとGoogle Book APIが一番良さそうだった(Amazonは厳しい)

DSLとは?

• Domain Specific Language
• 特定用途向けの独自言語
• XMLとかYAMLとかもDSLの一種といえる
• LLで書くDSL
  • Chef/Puppuet/Rake
  • cpanfile

Perlで作られたDSL

• Plack::Builder
• Moose/Mouse/Moo
• Module::CPANFile / cpanfile
• Web::Scraper
• Daiku / Daikufile
• DBIx::Schema::DSL

LLで書くDSLの種類

• 言語内DSL (言語の文法を拡張する)
• 言語外DSL (独自文法)

言語内DSLの種類

• コードを書くために一時的に文法を拡張するもの(シンタックスシュガーの定義)
  • Moou?
  • Try::Tiny
• 限定用途
  • cpanfile
  • Daikufile
  • DBIx::Schema::DSL

cpanfileの場合

requires 'Plack::Request';
on test => sub {
    requires 'Test::More';
};

DBIx::Schema::DSLの場合

create_table book => columns {
    integer 'id',   primary_key, auto_increment;
    varchar 'name', null;
    integer 'author_id', not_null;
    decimal 'price', 'size' => [4,2];

    add_index  'author_id_idx' => ['author_id'];
    belongs_to 'author';
};

PerlによるDSLの記述

• PerlでDSLする方法 by tokuhirom
• 裸のワードは関数である
  • Perlは関数呼び出しのパーレンを省略できるので関数をキーワードっぽく使用できる
• useすると関数をexportするようにしておく
• コードブロックの活用
• サブルーチンプロトタイプの活用

サブルーチンプロトタイプ

&を指定することでsubの3文字を省略できる。

sub run(&) {
    my $code = shift;
    $code->();
}

# 以下のように呼び出せる
# run( sub{ ... } ); # と同じ
run {
    ... # ここのコードが実行される
};

状態の保存

• 内部のオブジェクト設計をちゃんとやる
• 内部的にコンテキストオブジェクトを隠す
• callerを使って呼び出し元を解決してそこのパッケージ変数に紐付けたりする

その他気をつけること

• 関数名の衝突に気をつける