A little bit Extra on top of Test::MockObject Sam Crawley <mutant.nz@gmail.com>