Just read this perl on an IBM site:
Common wisdom suggests that this situation provides an opportunity to refactor your object to make it more test-friendly.
That used to be written as: you need to kludge up your methods.