X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F900_mouse_bugs%2F005_large_int.t;h=ed0507618daf60d07eba23d5a6c232d759cf10da;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=c6982b9f99b7111433005c6f7dfc509c81048bfd;hpb=a59572ace1bae78d6595316082ec9e6d1d80f8ac;p=gitmo%2FMouse.git

diff --git a/t/900_mouse_bugs/005_large_int.t b/t/900_mouse_bugs/005_large_int.t
index c6982b9..ed05076 100644
--- a/t/900_mouse_bugs/005_large_int.t
+++ b/t/900_mouse_bugs/005_large_int.t
@@ -1,19 +1,21 @@
 # See also http://rt.cpan.org/Public/Bug/Display.html?id=55048
-package MyInteger;
-use Mouse;
+use strict;
+use Test::More tests => 24;
 
-has a_int => (
-    is => 'rw',
-    isa => 'Int',
-);
+{
+    package MyInteger;
+    use Mouse;
 
-has a_num => (
-    is => 'rw',
-    isa => 'Num',
-);
+    has a_int => (
+        is => 'rw',
+        isa => 'Int',
+    );
 
-package main;
-use Test::More tests => 24;
+    has a_num => (
+        is => 'rw',
+        isa => 'Num',
+    );
+}
 
 foreach my $i(2**32, 2**40, 2**46) {
     for my $sig(1, -1) {