Perl スクリプトに assertion code を埋め込みたいのだが。。。: 国民宿舎はらぺこ 大浴場
それっぽいモジュールは存在するのだが。。。 一応 Test::Harness::Assert というのが現行の Perl には標準ライブラリとして備わっている。ちなみに、Carp::Assert なんてのも存在していて、(エーゴが苦手なりに) 流し読んでみた感触からしてこっちの方がやりたいことに近いようではあるのだが、残念ながらこちらは標準ライブラリではないため、自分が書いたプログラムのユーザーにモジュールのインストールを要求しなければならないことになり、プログラムの配布を考えている場合にはあまり現実的ではない。 Test::Harness::Assert は assert (3) (所謂 ANSI C の assert マクロ) に似たインタフェースを提供してくれるようだが、assert (3) と違って本番リリース向けにはコンパイルの対象から外されるということは無い。assertion
Perl スクリプトに assertion code を埋め込む実験中: 国民宿舎はらぺこ 大浴場
この記事の続きというか後日談というか。現在製作中の若干大きめのプロジェクトにおいて、自作の assertion code がそれなりに役立っているので、一応現状使っているものとほぼ等価のコードを示しておこうと思う。 sub assert (&) { return unless $debug_mode; shift->() and return; # assertion 失敗時の処理 my (undef, $filename, $line) = caller; my $main_file = main::__FILE__; print STDERR <<ENDLINE; $main_file: Assertion faild at $filename line $line ** Call stack ** ENDLINE my $i = 0; while (my ($pkg, $file,
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
