use warnings;
use blib;
-use blib 't/Sub-Op-Test';
+use blib 't/Sub-Op-LexicalSub';
my $code = $ARGV[0];
die "Usage: $0 'code involving f() and g()'" unless defined $code;
my $cb = eval <<"CODE";
- use Sub::Op::Test f => sub { say 'f(' . join(', ', \@_) . ')'; \@_ };
- use Sub::Op::Test g => sub { say 'g(' . join(', ', \@_) . ')'; \@_ };
+ use Sub::Op::LexicalSub f => sub { say 'f(' . join(', ', \@_) . ')'; \@_ };
+ use Sub::Op::LexicalSub g => sub { say 'g(' . join(', ', \@_) . ')'; \@_ };
sub { $code }
CODE
die $@ if $@;