From a1c10d3a2df2bb969aa0cdca2aeab9ce913d6f88 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 13 Jun 2010 11:42:43 -0500
Subject: stop autovivifying on get

---
 t/004-get.t | 46 ++++++++++++++++++++++++++++++++++------------
 1 file changed, 34 insertions(+), 12 deletions(-)

(limited to 't/004-get.t')

diff --git a/t/004-get.t b/t/004-get.t
index 15e252f..89d7567 100644
--- a/t/004-get.t
+++ b/t/004-get.t
@@ -6,21 +6,43 @@ use Test::More;
 use Package::Stash;
 
 {
-    my $stash = Package::Stash->new('Foo');
-    my $val = $stash->get_package_symbol('%foo');
-    is(ref($val), 'HASH', "got something");
-    $val->{bar} = 1;
-    is_deeply($stash->get_package_symbol('%foo'), {bar => 1},
-              "got the right variable");
+    BEGIN {
+        my $stash = Package::Stash->new('Foo');
+        my $val = $stash->get_package_symbol('%foo');
+        is($val, undef, "got nothing yet");
+    }
+    {
+        no warnings 'void', 'once';
+        %Foo::foo;
+    }
+    BEGIN {
+        my $stash = Package::Stash->new('Foo');
+        my $val = $stash->get_package_symbol('%foo');
+        is(ref($val), 'HASH', "got something");
+        $val->{bar} = 1;
+        is_deeply($stash->get_package_symbol('%foo'), {bar => 1},
+                "got the right variable");
+    }
 }
 
 {
-    my $stash = Package::Stash->new('Bar');
-    my $val = $stash->get_package_symbol('@foo');
-    is(ref($val), 'ARRAY', "got something");
-    push @$val, 1;
-    is_deeply($stash->get_package_symbol('@foo'), [1],
-              "got the right variable");
+    BEGIN {
+        my $stash = Package::Stash->new('Bar');
+        my $val = $stash->get_package_symbol('@foo');
+        is($val, undef, "got something");
+    }
+    {
+        no warnings 'void', 'once';
+        @Bar::foo;
+    }
+    BEGIN {
+        my $stash = Package::Stash->new('Bar');
+        my $val = $stash->get_package_symbol('@foo');
+        is(ref($val), 'ARRAY', "got something");
+        push @$val, 1;
+        is_deeply($stash->get_package_symbol('@foo'), [1],
+                "got the right variable");
+    }
 }
 
 done_testing;
-- 
cgit v1.2.3-54-g00ecf