return @results if wantarray; carp("More than one value in result in scalar context for &foo") if @results > 1; return $results[0];