1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
#!/usr/bin/env perl use strict; use warnings; use Test::More; use Test::Requires '5.018'; use 5.018; use Eval::Closure; my $sub = eval_closure( source => 'sub { foo() }', environment => { '&foo' => sub { state $i++ }, } ); is($sub->(), 0); is($sub->(), 1); is($sub->(), 2); done_testing;