Help for this page

Select Code to Download


  1. or download this
    package Iterator;
sub TIESCALAR { bless $_[1], $_[0] }
...
sub add_section { push @{ $_[0]->[0][2] } , $_[1] }
sub create { my $s = shift; return sub { $s->[0][2][ $s->[0][0] ]->($s
+, @_) } }
42;
  2. or download this
    #!/usr/bin/perl
use strict;
...
print $wacky->(), "\n";
print $wacky->(), "\n";
print $wacky->(), "\n";
  3. or download this
    coroutine create {
    my $foo = shift;
...
44|weird
The end is near - goodbye cruel world
0