Resolve RT #67019: example/warns.pl didn't work

[gitmo/Mouse.git] / example / warns.pl

diff --git a/example/warns.pl b/example/warns.pl
index 7ba7fbb..ecfdfc0 100644 (file)
--- a/example/warns.pl
+++ b/example/warns.pl
@@ -1,6 +1,7 @@
 #!perl
 package Point;
 use Mouse;
+use MouseX::StrictConstructor;
 
 # extra 'unknown_attr' is supplied (WARN)
 has 'x' => (isa => 'Int', is => 'rw', required => 1, unknown_attr => 1);
@@ -14,7 +15,7 @@ sub clear {
   $self->y(0);
 }
 
-__PACKAGE__->meta->make_immutable(strict_constructor => 1);
+__PACKAGE__->meta->make_immutable();
 
 package main;