Select Code to Download

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;

#!/usr/bin/perl
use strict;
...
print $wacky->(), "\n";
print $wacky->(), "\n";
print $wacky->(), "\n";

coroutine create {
    my $foo = shift;
...
44|weird
The end is near - goodbye cruel world
0