From 794dc9df98d2aaf2f143f32ac7dfa42fa46ce07e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 2 Aug 2011 01:10:22 -0500
Subject: compile each thing in a separate package, to avoid leakage

---
 t/compiling-package.t | 29 +++++++++++++++++++++++------
 1 file changed, 23 insertions(+), 6 deletions(-)

(limited to 't')

diff --git a/t/compiling-package.t b/t/compiling-package.t
index 5c3764f..09b4d0b 100644
--- a/t/compiling-package.t
+++ b/t/compiling-package.t
@@ -5,13 +5,30 @@ use Test::More;
 
 use Eval::Closure;
 
-my $code = eval_closure(
-    source => 'no strict "refs"; sub { keys %{__PACKAGE__ . "::"} }',
-);
+{
+    my $code = eval_closure(
+        source => 'no strict "refs"; sub { keys %{__PACKAGE__ . "::"} }',
+    );
 
-# defining the sub { } creates __ANON__, calling 'no strict' creates BEGIN
-my @stash_keys = grep { $_ ne '__ANON__' && $_ ne 'BEGIN' } $code->();
+    # defining the sub { } creates __ANON__, calling 'no strict' creates BEGIN
+    my @stash_keys = grep { $_ ne '__ANON__' && $_ ne 'BEGIN' } $code->();
 
-is_deeply([@stash_keys], [], "compiled in an empty package");
+    is_deeply([@stash_keys], [], "compiled in an empty package");
+}
+
+{
+    # the more common case where you'd run into this is imported subs
+    # for instance, Bread::Board::as vs Moose::Util::TypeConstraints::as
+    my $c1 = eval_closure(
+        source => 'no strict "vars"; sub { ++$foo }',
+    );
+    my $c2 = eval_closure(
+        source => 'no strict "vars"; sub { --$foo }',
+    );
+    is($c1->(), 1);
+    is($c1->(), 2);
+    is($c2->(), -1);
+    is($c2->(), -2);
+}
 
 done_testing;
-- 
cgit v1.2.3-54-g00ecf