my $M = Person->new( name => 'A', sex => 'please' );
print $M->dump;

##</code><code>##

$VAR1 = bless( {
                 'sex' => 'please'
               }, 'Person' );

##</code><code>##

C:\>perl -MMoose -e "print $Moose::VERSION"
0.22
C:\>perl -MMoose::Util::TypeConstraints -e "print $Moose::Util::TypeConstraints::VERSION"

0.13
C:\>perl -v

This is perl, v5.8.8 built for MSWin32-x86-multi-thread