You could perhaps use one of the various mocking modules to accomplish this. I often use Test::MockModule but there are plenty of others to choose from too (see for example this tutorial for Test::MockObject).