#!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 $@;
