A mocking framework for Perl inspired by JMock - View it on GitHub