perl：count在测试时调用方法

Question

我的测试看起来像这样：

my $mockobj = My::Module->new();
$mockobj = Test::MockObject::Extends->new($obj);

my $callcount = 0;

$mockobj->mock('Foo', sub {
  print STDERR "foo\n";
  $callcount++;
  return 1;
});

$mockobj->CallsFoo();
is($callcount, 1);
$mockobj->CallsFooTwice();
is($callcount, 3);

我想知道是否有更好的方法来实现这一目标。在某些其他语言中，有些模块能够监视调用函数的次数（例如javascript的sinon）。 perl是否有这样的东西，或者我必须像这样手动完成它？