perl.com testing with Mock::Object::Extends and Test::Routine