From: Fuji, Goro <gfuji@cpan.org>
Date: Thu, 14 Apr 2011 14:39:38 +0000 (+0900)
Subject: Resolve RT #67019: example/warns.pl didn't work
X-Git-Tag: 0.92~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9332e884f3767ebbd3e5dc7a3ae948ce61f61a7;p=gitmo%2FMouse.git

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

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;