sub foo {
  my $error = ...;
  return $error if (defined wantarray || ! $error);
  croak "foo failed: $error";
}