See perldoc Test::MockClass