All pastes #974463 Raw Edit

Anonymous

public text v1 · immutable
·published 2008-04-06 20:16 UTC
rendered paste body
#!/usr/bin/perl
use strict;
use warnings;

my $closure = double();

print $closure->(5);

sub double {
    return sub { shift() * 2 };
}