X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2Fautovivification%2FTestRequired6.pm;fp=t%2Flib%2Fautovivification%2FTestRequired6.pm;h=d809feeb04eca01eb2476f9ae4d96115d27f63af;hb=d98155fce615007c0caae395a82ebd178d4b3877;hp=0000000000000000000000000000000000000000;hpb=40b9bfe1115b33d2d5f88d57f983c2ddd7d3f5d2;p=perl%2Fmodules%2Fautovivification.git

diff --git a/t/lib/autovivification/TestRequired6.pm b/t/lib/autovivification/TestRequired6.pm
new file mode 100644
index 0000000..d809fee
--- /dev/null
+++ b/t/lib/autovivification/TestRequired6.pm
@@ -0,0 +1,13 @@
+package autovivification::TestRequired6;
+
+sub new { bless {} }
+
+sub bar {
+ exists $main::blurp->{bar};
+}
+
+sub baz {
+ eval q[exists $main::blurp->{baz}];
+}
+
+1;