Add a sample shortcut to Sub::Op::Test

[perl/modules/Sub-Op.git] / samples / try.pl

diff --git a/samples/try.pl b/samples/try.pl
new file mode 100755 (executable)
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 $@;