X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=perl%2Fmap-reduce%2Ffunction-string.pl;fp=perl%2Fmap-reduce%2Ffunction-string.pl;h=d3a7d221536298c44b33294d38207834083ab4e2;hb=a0db0557a21b32bec8448aed9d672d7282a565ab;hp=0000000000000000000000000000000000000000;hpb=b104831b824954aa5a3099d1a99f56edc592b2bb;p=mirrors%2FPrograms.git

diff --git a/perl/map-reduce/function-string.pl b/perl/map-reduce/function-string.pl
new file mode 100755
index 0000000..d3a7d22
--- /dev/null
+++ b/perl/map-reduce/function-string.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $sub = q {{
+	print "rofl\n";
+}};
+
+print "$sub\n";
+eval $sub;
+eval "sub foo $sub"; foo();