Speaking of hideous, the functional approach written in Perl:

if (my $x = x(f(), \&g)) {
   ...
}
[download]

having defined x() as

sub x {
   my ($x, $g) = @_;
   $x && $g->($x)
}
[download]