Amon2の$c->req->paramに値を入れる。
なんとなく、 $c->req->param('key' => 'value'); こんな感じで入るかと思ったら、できなかったのでメモ。 で、 $c->req->parameters->set('key' => 'value'); これでいける。 parame…
Perl
アプリで使用しているCPANモジュールの一覧を取得。
App::scan_prereqs_cpanfileのインストール cpanm App::scan_prereqs_cpanfile 使ってみる cd MyApp scan-prereqs-cpanfile 調べたいアプリのdirに入って、scan-prereqs-cpanfileコマンドを叩くだけ…
Amon2::Setup::Flavor->write_fileで変数を使う。
Amon2::Setup::Flavorのソース見た感じ、中身はXslateのようですが、tag_start,tag_endが設定されているようなので、下記のような感じで。 sub run { my $self = shift; $self->write_file('lib/<<P…
Amon2のDispatcher をカスタマイズしてCatalystライクなコントローラーを実装する
最近のWAFは、 get '/' => 'Foo#bar'; みたいなのをつらつらと書いていくのが主流みたいなんですが、コントローラに書いてある方が直観的だと思うのはCatalyst病に感染してるからでしょうか。 PerlのAttributeが微妙ってのもあって、CatalystライクなDis…
Amon2で、MyApp::Web::Plugin::FormValidator::Liteを作ってみた。
なるべくコントローラに書く部分を少なくしたいのです。。 WAFはAmon2使ってます。 設定周り まずは、configにバリデート内容を書いていきます。 +{ 'FormValidator::Lite' => +{ 'user' => { 'message' => { 'name.…
Amon2で$c->render()を自動で呼ぶようにしてみた。
以前書いた Amon2で$c->render()をwrapした$c->auto_render()を作ってみた(改) ですが、もう$c->auto_render()を毎回書くのがアレなんで、書かなくて良いようにしてみた。 add_triggerを駆使すれば行けるかと思ったんですが、タイミン…
Amon2で$c->render()をwrapした$c->auto_render()を作ってみた(改)
以前書いた、 Amon2で$c->render()をwrapした$c->auto_render()を作ってみた。 と、 Amon2で$c->stashを使う。 を組み合わせてみた。 まずは、$cにauto_renderを追加。 sub auto_render { my $self …
Amon2で$c->stashを使う。
Amon2自体は、意図的にstashは作ってないようなんですが、ずっとCatalystを使ってたのでstashあった方が便利かなーと。 で、$c->stashを追加してみた。 sub stash { my $self = shift; unless ( $self->{stash} ) { $…
Amon2で$c->render()をwrapした$c->auto_render()を作ってみた。
毎回$c->render()にテンプレート指定するのがアレなんで指定しなくて良いようにしてみた。 ま、$cに別のrenderを作って、その中から通常のrenderを呼ぶ感じで。 package MyApp; sub auto_render{ my ( $self, $stash ) = @_; # …
JavaScript::Minifierでjsをmin化しとく。
jsにコメント書きまくった結果、ソースが無駄にでかくなってしまったので、少しでもファイルを軽くする為に。。 複数ファイルを繋げて1つのファイルにしつつ、コメントとか空白行を取り払う。 #!/usr/bin/perl use strict; use warnings; use Path::Class;…
FormValidator::Liteをwrapして使ってみる。
そのままでも充分使えそうですが、痒いところに手が届くようにしてみました。 ユーザーのプロフィールを入力するフォームをバリデートする感じで下記を書いてみました。 まずはerror_messageのymlを用意。 message: name.not_null: '' param: name: 名前 ag…
Perlで特定のpackageを動的にuseするやつ(Module::Find)
ちょっと前までは、Module::Recursive::Requireってやつを使ってたんですが、Amon2のサンプルを見てると、Module::Findの方がお手軽な感じだったんで、最近はそっち使ってます。 過去に書いたやつも見かけたら変更して行ってます。 use Module::Find; my…
Plack::Middleware::Profiler::NYTProfでプロファイリング。
Amon2を使ってサービスでも作ろうかと色々やってみてるんですが、ページによって重かったりするので、どこが重い(時間がかかってる)のがちょいと調査。 my $app = builder { # ... 省略 ... enable 'Plack::Middleware::Profiler::NYTPr…
Amon2でModel作ってControllerから呼ぶ
MVCが良いか悪いかは兎も角、、 ViewとControllerしかないので、Modelを作ってみます。 Amon2のサンプル的なやつだと、Controllerから直接dbを叩いてるようなのがよくあるんですけど、Controller肥大化を避ける意味でも。 (Catalystで言うところの、Cata…
githubのモジュールをcpanmでインストール
右側のHTTPS clone URLのURLをコピって、プロトコルをhttps:// -> git://に変更 cpanm git://github.com/xxx/xxx-xxx-xxx.git 以上、メモでした。…