Amon2::Setup::Flavor->write_fileで変数を使う。

2014年8月11日

Amon2::Setup::Flavorのソース見た感じ、中身はXslateのようですが、tag_start,tag_endが設定されているようなので、下記のような感じで。

Amon2::Setup::Flavor::MyFlavor
sub run {
    my $self = shift;
 
    $self->write_file('lib/<<PATH>>.pm', <<'...',{ hoge => 111 });
print <% $hoge %> . "\n";
...
}

<% %>でかこって、$hogeで、送った変数に置換されます。

関連記事

  1. Perl(Amon2)で、Formに自動でエラーメッセージを埋め込みたい。 FormValidator::Liteとかでバリデートした結果でエラーがあった場合に、自動でエラーを埋め込むような感じにしたいなーと。 で、とりあえず書いてみたプラグインが下記。 package MyApp::Web:: […]...
  2. Amon2でコントローラー(Dispatcher)が動く前に処理を入れたい。 元となるソース(というか、修正するファイル)は、以前作成した(Amon2で$c->render()を自動で呼ぶようにしてみた。)のMyApp::Web 気分的には、Catalystのautoに近い挙動を目指す。 p […]...
  3. Amon2でMODE共用のconfigファイルを読み込んで使う。 Amon2は、configをdevelopmentとproductionの読み替えができるんで、DB接続周りとかの変更が可能なんですが、その他の部分で同じ内容がいくつかあって、いちいちconfigを全部変えるがめんどいの […]...
  4. Amon2で$c->render()を自動で呼ぶようにしてみた。 以前書いた Amon2で$c->render()をwrapした$c->auto_render()を作ってみた(改) ですが、もう$c->auto_render()を毎回書くのがアレなんで、書かなくて良いように […]...
Amon2Perl