表に出せない感じの書き捨てスクリプトとか、 ちょいちょいちょいっと書いて、結果を見て終わりなんだけど、 やっぱテスト書きたいよね、っていうお話。 CPAN形式にしちゃってローカルリポジトリで管理してもいんだけど、 やっぱ大げさだし、こんな感じで配置してみた。 . ├── aaa.pl ├── lib │ └── Foo │ └── Bar.pm └── t └── 00_Bar.t “aaa.pl”はこんな感じ。 use strict; use warnings; use v5.10; use FindBin; use lib "$FindBin::Bin/lib"; use Foo::Bar qw/hoge/; say hoge(); でもって、こういうのが2つ3つくらいできる予定。 いっそ、”bin”フォルダでも作った方が良い気もする。 “lib/Foo/Bar.pm”はこんな