Perl

PerlTidyでの一括整形コマンド

地味に面倒くさかったので、メモとして残します初めにやろうとしたことfind ../lib -name '*.pm' | xargs perltidy -pbp 失敗でした。ただ、整形後のコードが標準出力として表示されただけでした。-pbpは以下の内容が含まれています。 上記のオプションでダ…

Catalystでリクエスト元IPアドレスをいじるテストについて

Catalystでリクエスト元のIPアドレス によって処理を分岐させるコードがあったのですが、テストコードでのテストはしていませんでした。存在しなかったので、テストコード書くことにしました。やったこと・ LWP::UserAgent local_address・ Test::WWW::Mecha…

PerlでのMRO::Compatの__get_linear_isa_dfsが遅い件について

# Perl MRO::Compat経緯:なんかやたらクローンでまわしている処理が重いためNYTProfで計測しました。分かったことがMRO::Compatの__get_linear_isa_dfsを何十万回と呼び出していました。何回もMRO::Compatを呼んでいたのは、DBIx::Class::Rowのinflate_resul…

Exporterが便利でした

今回、仕事の開発でExporterを利用しての開発を行いました。その際に先輩にExporterの便利さに感動したので簡単にメモを残します。今まで知らなかったのが恥ずかしかったです。Exporterはこちら(metacpan) use Encode qw(encode); Perlで上のuseの使い方を見…

mod_perl × Catalyst でPOST時Apache2::RequestRecを取得できない

Catalystを最新にしたら、詰まった点があったのでメモします。mod_perlでCatalystを動かしているのですが、今回Catalystを最新にしたらPOST時にエラーが出た。Catalystのバージョンは5.90051(2013-11-07)です。エラーの内容としてはPOST or PUT 時に下のコ…

DBICでbelongs_toからmight_have,has_oneへ変更でInvalid rel cond key

DBICのリレーションでエラーが出た部分について。 perlのあるテーブルのリレーションをbelongs_to から might_haveにすることにしました。 #変更前 __PACKAGE__->belongs_to( 'item' => 'Test::Schema::Item', { 'item_id' => 'item_id' , 'date' => 'date }…