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 };
coerce 'NaturalNumber',
from 'Str', via { 42 },
- ;\r
-\r
+ ;
+
has n => (
is => 'rw',
isa => 'NaturalNumber',