Improve the require propagation workaround

[perl/modules/autovivification.git] / t / lib / autovivification / TestRequired4 / a0.pm

diff --git a/t/lib/autovivification/TestRequired4/a0.pm b/t/lib/autovivification/TestRequired4/a0.pm
new file mode 100644 (file)
index 0000000..317789e
--- /dev/null
+++ b/t/lib/autovivification/TestRequired4/a0.pm
@@ -0,0 +1,9 @@
+package autovivification::TestRequired4::a0;
+no autovivification qw/strict fetch/;
+use autovivification::TestRequired4::b0;
+sub error {
+ local $@;
+ autovivification::TestRequired4::b0->get;
+ return $@;
+}
+1;