1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/env perl use strict; use warnings; use Test::More; use Eval::Closure; my $number = 40; my $closure = eval_closure( source => 'sub { $xxx += 2 }', environment => { '$xxx' => \$number }, ); $closure->(); is($number, 42); done_testing;