http://qs321.pair.com?node_id=302316


in reply to How's your Perl?

# 1
my @x = ( \$_, \$_ );

# 2
sub foo { print "Agree :-)\n" }
{foo;redo}

# 4
dump()

[download]

The closure bug/feature Unusual Closure Behaviour 

# 5
sub foo {
    my $x if 0;
    ++$x;
}

[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

In Section Meditations