10 my $code = eval_closure(
11 source => 'sub { die "called\n" }',
13 ok($code, "got something");
15 like(exception { $code->() }, qr/^called$/, "got the right thing");
21 my $code = eval_closure(
22 source => 'sub { push @$bar, @_ }',
27 ok($code, "got something");
31 is_deeply($foo, [1], "got the right thing");
37 my $code = eval_closure(
38 source => 'do { no strict; sub { $foo } }',
41 ok($code, "got something");
43 ok(!$code->(), "environment is clean");