Mega Code Archive

 

Categories / Perl / Subroutine

 

Closure in action

sub paint {     my $color = shift;         my $ref = sub {                my $object=shift;         print "Paint the $object $color.\n"; # $color still in scope     };     return $ref;     } my $p1=paint("red");    my $p2=paint("blue");   $p1->("flower");   $p2->("sky");