add a warning for immutablizing a class with mutable ancestors

[gitmo/Moose.git] / t / lib / Recursive / Parent.pm

diff --git a/t/lib/Recursive/Parent.pm b/t/lib/Recursive/Parent.pm
new file mode 100644 (file)
index 0000000..2ffe6f7
--- /dev/null
+++ b/t/lib/Recursive/Parent.pm
@@ -0,0 +1,13 @@
+package Recursive::Parent;
+use Moose;
+
+use Recursive::Child;
+
+has child => (
+    is  => 'ro',
+    isa => 'Maybe[Recursive::Child]',
+);
+
+__PACKAGE__->meta->make_immutable;
+
+1;