tokuhiromさんのOrePANをはじめ、似たようなものはすでにいくつかあるわけですが、テスト用のツールとしてはいまいち使いづらかったので屋上屋を重ねてみました。 使い方はこんな感じ。 use strict; use warnings; use Test::More; use WorePAN; my $worepan = WorePAN->new( root => './tmp/', files => [qw( I/IS/ISHIGAKI/Path-Extended-0.01.tar.gz )], cleanup => 1, use_backpan => 1, no_network => 0, ); # 何かCPANミラーが必要になるようなテストを実行 my $mirror_url = "file://".$worepan->root; ok !system("cpanm -f --m