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