for my $klass (qw/Moose Mouse/) {
eval qq{
package ${klass}One;
- use $klass;\r
+ use $klass;
use ${klass}::Util::TypeConstraints;
-\r
- subtype 'NaturalNumber', as 'Int', where { \$_ > 0 };\r
-\r
+
+ subtype 'NaturalNumber', as 'Int', where { \$_ > 0 };
+
has n => (
is => 'rw',
isa => 'NaturalNumber',