Help for this page

Select Code to Download


  1. or download this
    if (my $x = x(f(), \&g)) {
       ...
    }
    
  2. or download this
    sub x {
       my ($x, $g) = @_;
       $x && $g->($x)
    }