Prevent bogus invalid syntaxes caused by reallocated memory chunks

[perl/modules/indirect.git] / t / lib / indirect / Test0 / Oooooo / Pppppppp.pm

diff --git a/t/lib/indirect/Test0/Oooooo/Pppppppp.pm b/t/lib/indirect/Test0/Oooooo/Pppppppp.pm
new file mode 100644 (file)
index 0000000..f666da5
--- /dev/null
+++ b/t/lib/indirect/Test0/Oooooo/Pppppppp.pm
@@ -0,0 +1,15 @@
+package indirect::Test0::Oooooo::Pppppppp;
+
+use strict;
+no indirect ":fatal";
+
+use indirect::Test0::Fffff::Vvvvvvv
+       z => 0,
+       x => sub { },
+       y => sub { };
+
+use indirect::Test0::Fffff::Vvvvvvv
+       t => [xxxx=>qw(xxxxxx xxxxxxx)],
+       x => sub { $_[0]->method };
+
+1;