See perldoc Test::MockClass
