[mirrors/Programs.git] / perl / map-reduce / function-string.pl

#!/usr/bin/env perl
use strict;
use warnings;

my $sub = q {{
	print "rofl\n";
}};

print "$sub\n";
eval $sub;
eval "sub foo $sub"; foo();
Commit	Line	Data
a0db0557 H	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4
	5	my $sub = q {{
	6	print "rofl\n";
	7	}};
	8
	9	print "$sub\n";
	10	eval $sub;
	11	eval "sub foo $sub"; foo();