samples/try.pl

   1 #!perl
   2
   3 use 5.010;
   4
   5 use strict;
   6 use warnings;
   7
   8 use blib;
   9 use blib 't/Sub-Op-Test';
  10
  11 my $code = $ARGV[0];
  12 die "Usage: $0 'code involving f()'" unless defined $code;
  13
  14 eval <<"CODE";
  15  use Sub::Op::Test f => sub { say 'f(' . join(', ', \@_) . ')'; \@_ };
  16  $code
  17 CODE
  18 die $@ if $@;