Perhaps you want Test::MockObject instead, which can be "taught" to perform actions for testing, and records the calls made against it?

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.