連載企画 第1回 Perl で DSL する方法 - tokuhirom's blog

昨年の YAPC の頃に書こうと思ってたネタを id:cho45 さんのひとことで不意に思いだしたのでここに記す。 まず、DSL とはなにか。この連載企画では↓こういうのを DSL とよぶことにします。 session 'testuser' => run { flow 'log in and out' => check { flow 'log in' => check { get 'http://localhost/'; fill form 'login' => { username => 'testuser', password => 'drowssap', }; content should contain 'log out'; }; flow 'log out' => check { get 'http://localhost/'; click href 'log out'; };

[kiyo_hiko]

なるほど // このエントリーを読んで考え中の断片 (まだ動かない) → 「sub rule {my ($x, ＠xs) = ＠_; !＠_ ? return : $x->() ? rule(＠xs) : return} sub goal(&) {$_[0]}」

[sotarok]

dslっぽさとはなにか

[youpy]

anonymous function、プロトタイプ宣言

[hirose31]

DSL【どする】／＞local で caller の名前空間にメソッドを宣言し、その上でコールバックを呼ぶことによって、さまざまなマジカルな技を使うことができます。

[TAKESAKO]

第2回が楽しみ

[vkgtaro]

なるほど。

[charsbar]

かっこいいってのもあるけど、個人的にはPODを書かなくてよくなる方が大きなメリットだなあ

[fn7]

続きが楽しみ

[kdaiba]

DSLの作り方

[oinume]

こういうの知りたかった

[kamawada]

Perlを極めて変態になる方法

[cho45]

my $pkg = caller(0); local *{"$pkg\::foo"} = sub { ... };