+++ /dev/null
-package MyInteger;
-use Mouse;
-
-has a_int => (
- is => 'rw',
- isa => 'Int',
-);
-
-has a_num => (
- is => 'rw',
- isa => 'Num',
-);
-
-package main;
-use Test::More tests => 212 * 2;
-
-for (my $i = 1; $i <= 10e100; $i += $i * 2) {
- my $int = MyInteger->new( a_int => $i )->a_int;
- cmp_ok($int, '==', $i, "Mouse groked the Int $i");
-
- my $num = MyInteger->new( a_num => $i )->a_num;
- cmp_ok($num, '==', $i, "Mouse groked the Num $i");
-}