You could do

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

which I think is syntactically equivalent to your original. Whether you would want to is another matter :)