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',
die $@ if $@;
}
-use Data::Dumper;
-$Data::Dumper::Deparse = 1;
-$Data::Dumper::Indent = 1;
-print Mouse::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
-print Moose::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
+#use Data::Dumper;
+#$Data::Dumper::Deparse = 1;
+#$Data::Dumper::Indent = 1;
+#print Mouse::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
+#print Moose::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
print "Class::MOP: $Class::MOP::VERSION\n";
print "Moose: $Moose::VERSION\n";