diff options
Diffstat (limited to 't/close-over-nonref.t')
-rw-r--r-- | t/close-over-nonref.t | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/t/close-over-nonref.t b/t/close-over-nonref.t new file mode 100644 index 0000000..66af1c1 --- /dev/null +++ b/t/close-over-nonref.t @@ -0,0 +1,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; |