Well, call me crazy (and I probably am) but I did not see the Testing Category the last time I checked ;-)

Anyway, here is the finished tutorial: Mocking accessors with Test::MockObject. Would be nice if someone could put it under Test. Thanks.