Select Code to Download

delete $log_count{$a--} if it=0;

delete $hash{some_destructive_function()} if it==0

$code = c{ $a = 1; $b=2; print $a + $b}

sub printer {
  my $expr = shift;
...
    }
  }
}

$adder_code = printer( c{ $x + $y } }
$adder_sub = compile($adder_code)
...
$pythago_sub = compile($pythago_code)
&{$pythago_sub}(3, 4)
# prints 5

macro printer {
  my $expr = shift;
...
    }
  }
}

# printer is a macro, so $x + $y is not evaluated
$adder_sub = printer( $x + $y }
&{$adder_sub}(1, 2)
# prints 3

macro aif {
  my $condition = shift;
...
    }
  }
}

aif(number_of_widgets(),
    {
      print "there are $it widgets\n";
    }
)