Help for this page

Select Code to Download


  1. or download this
    my %real_functions = (
  wipe_system => sub { system "rm -rf /" },
...
    : \%real_functions;

$funcs->{'wipe_system'}->();
  2. or download this
    {
    package SystemFunctions::Real;
...
    : 'SystemFunctions::Debug';

$funcs->wipe_system();
  3. or download this
    my %dispatch = (
  incr => sub { $x++ },
  decr => sub { $x-- },
);
$dispatch{$op}->();
  4. or download this
    sub incr { shift; $x++ }
sub decr { shift; $x-- }

main->$op();