X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=example%2Fwarns.pl;h=ecfdfc012ca4deaf8150db9f4a365fae74316990;hb=HEAD;hp=7ba7fbb56ccef38182ccd416328f4e0e9fdad2f4;hpb=950f02e50997068e6ea0a7abd373a0846fff0343;p=gitmo%2FMouse.git

diff --git a/example/warns.pl b/example/warns.pl
index 7ba7fbb..ecfdfc0 100644
--- 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;