愛してます、定数畳み込み : D-7 <altijd in beweging>

もしあなたのperl HTTPハンドラが「可能ならgzipしたコンテンツを返したい」と思うなら、Compress::Zlibを使うだろう。だがそれを毎回eval + requireするのは正直無駄だ。なぜならプログラムが起動した時にすでにそれを毎回行うのかどうかすでにわかっているからだ。 sub psgi_response { my ($self, $content) = @_; my $req = $self->req; my $res = $self->res; if ($req->header('Accept-Encoding') =~ /\bgzip\b/i) { if (eval { require Compress::Zlib }) { $res->header('Content-Encoding' => 'gzip'); $content = Compress::Zlib::

[maroekun]

定数畳み込み

[kits]

eval { require Foo } は最初だけ実行。