Perl
地味に面倒くさかったので、メモとして残します初めにやろうとしたことfind ../lib -name '*.pm' | xargs perltidy -pbp 失敗でした。ただ、整形後のコードが標準出力として表示されただけでした。-pbpは以下の内容が含まれています。 上記のオプションでダ…
Catalystでリクエスト元のIPアドレス によって処理を分岐させるコードがあったのですが、テストコードでのテストはしていませんでした。存在しなかったので、テストコード書くことにしました。やったこと・ LWP::UserAgent local_address・ Test::WWW::Mecha…
# Perl MRO::Compat経緯:なんかやたらクローンでまわしている処理が重いためNYTProfで計測しました。分かったことがMRO::Compatの__get_linear_isa_dfsを何十万回と呼び出していました。何回もMRO::Compatを呼んでいたのは、DBIx::Class::Rowのinflate_resul…
今回、仕事の開発でExporterを利用しての開発を行いました。その際に先輩にExporterの便利さに感動したので簡単にメモを残します。今まで知らなかったのが恥ずかしかったです。Exporterはこちら(metacpan) use Encode qw(encode); Perlで上のuseの使い方を見…
Catalystを最新にしたら、詰まった点があったのでメモします。mod_perlでCatalystを動かしているのですが、今回Catalystを最新にしたらPOST時にエラーが出た。Catalystのバージョンは5.90051(2013-11-07)です。エラーの内容としてはPOST or PUT 時に下のコ…
DBICのリレーションでエラーが出た部分について。 perlのあるテーブルのリレーションをbelongs_to から might_haveにすることにしました。 #変更前 __PACKAGE__->belongs_to( 'item' => 'Test::Schema::Item', { 'item_id' => 'item_id' , 'date' => 'date }…