Catalyst で setup にかかった時間を表示する - Craftworks Tech Blog - Branch

Catalyst はデフォルトでリクエスト毎の処理時間をログ出力してくれますが、setup() 時の処理時間は表示してくれません。チューニングの目安として見たいので実装してみました。 Upgrading to Catalyst 5.80 で紹介されている、setup の hook point を使います。 package MyApp; use Moose; use Catalyst::Runtime 5.80; use Catalyst; use Time::HiRes; extends 'Catalyst'; our $StartedOn; BEGIN { $StartedOn = Time::HiRes::time; } after setup_finalize => sub { my $c = shift; $c->log->info(sprintf 'Setup took %0.6