sub test {
    return 
      ($results[ @results ] = $object->createNewObject() ) 
      || pop @results;
}