Blog

Test::CallCounter だした

use Test::CallCounter;
 
my $counter = Test::CallCounter->new(
    'LWP::UserAgent' => 'get'
);
 
my $ua = LWP::UserAgent->new();
$ua->get('http://d.hatena.ne.jp/');
 
is($counter->count(), 1);

去年ぐらいにかいた Test::CallCount っていうゆるふわモジュールがあったけどまだリリースしてなかったんですが、だせといわれたので full rewriteしてだしました。

単純なモジュールなのに一年たつと実装の方法をかえたくなるのが不思議なものですね。

まあ、そんなかんじです。