perl: подсчет вызовов метода во время тестирования

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);

Мне интересно, есть ли лучший способ сделать это.В некоторых других языках существуют модули, которые могут отслеживать количество вызовов функции (например, sinon для javascript).Есть ли такая вещь для Perl, или я должен сделать это вручную, как это?