Help for this page
Select Code to Download
Select
or
download this
if (my $x = x(f(), \&g)) { ... }
Select
or
download this
sub x { my ($x, $g) = @_; $x && $g->($x) }