4 use Benchmark qw/cmpthese/;
6 for my $klass (qw/Moose Mouse/) {
10 use ${klass}::Util::TypeConstraints;
12 subtype 'NaturalNumber', as 'Int', where { \$_ > 0 };
16 isa => 'NaturalNumber',
19 __PACKAGE__->meta->make_immutable;
25 #$Data::Dumper::Deparse = 1;
26 #$Data::Dumper::Indent = 1;
27 #print Mouse::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
28 #print Moose::Util::TypeConstraints::find_type_constraint('NaturalNumber')->dump(3);
30 print "Class::MOP: $Class::MOP::VERSION\n";
31 print "Moose: $Moose::VERSION\n";
32 print "Mouse: $Mouse::VERSION\n";
36 map { my $x = $_; $_ => sub { $x->new(n => 3) } }
42 print "---- new,set\n";
45 map { my $y = $_; $_ => sub { $y->new(n => 3)->n(5) } }
52 my %c = map { $_ => "${_}One"->new(n => 3) } qw/Moose Mouse/;
55 map { my $y = $_; $_ => sub { $c{$y}->n(5) } }