Mouse::Util::does_role() respects $thing->does() method

[gitmo/Mouse.git] / t / 900_mouse_bugs / 005_large_int.t

diff --git a/t/900_mouse_bugs/005_large_int.t b/t/900_mouse_bugs/005_large_int.t
index c6982b9..ed05076 100644 (file)
--- 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) {