Help for this page

Select Code to Download


  1. or download this
    sub RemoveThing
{
...
  # QueueAction serializes it's first argument
  QueueAction($thingtodo);
}
  2. or download this
    my @tasks = ();
{
...
  push @tasks, sub {print "Doing task $x\n";};
}
foreach (@tasks) {$_->();}
  3. or download this
    my @tasks = ();
my $x;
...
push @tasks, sub {print "Doing task $x\n";};

foreach (@tasks) {$_->();}