X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Ftry.pl;fp=samples%2Ftry.pl;h=399dbb9554cc12832ac9ba4dff214ed24598fc21;hb=4c1ada5fa7e7a266479669bdcaa60b33ada4c9c1;hp=0000000000000000000000000000000000000000;hpb=2294e62597936b61013cde4d8f445d3e41bc207d;p=perl%2Fmodules%2FSub-Op.git

diff --git a/samples/try.pl b/samples/try.pl
new file mode 100755
index 0000000..399dbb9
--- /dev/null
+++ b/samples/try.pl
@@ -0,0 +1,18 @@
+#!perl
+
+use 5.010;
+
+use strict;
+use warnings;
+
+use blib;
+use blib 't/Sub-Op-Test';
+
+my $code = $ARGV[0];
+die "Usage: $0 'code involving f()'" unless defined $code;
+
+eval <<"CODE";
+ use Sub::Op::Test f => sub { say 'f(' . join(', ', \@_) . ')'; \@_ };
+ $code
+CODE
+die $@ if $@;