Carpモジュールを使うと関数の呼び出し元情報（スタックトレース）が出力されるわけですが、どうやって出力しているかソースコードを見てみました。 すると、caller()という関数を使っていました。 参考：http://www.rfs.jp/sb/perl/05/caller.html こんな関…

私のperlのテスト環境について書いてみます。perlスクリプトのテストには、Test::Moreモジュールを使っています。 使い方はこんな感じ。Module.t use strict; use Test::More 'no_plan'; BEGIN{ use_ok('Module')}; my $r = Module->new; is ref($r), 'Modul…

こんな感じかな。 共通定数定義モジュール Constant.pm #!/usr/bin/perl package Constant; use strict; # Exporterを継承 use base qw/Exporter/; # グローバル変数の使用を宣言 use vars qw /@EXPORT_OK/; # @EXPORT_OKは要求に応じてエクスポートするシン…