All pastes #974453 Raw Edit

Anonymous

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

my $closure = double();

print $closure->(5);

sub double {
    my $param = shift;

    return sub { $param * 2 };
}