$args->{type_constraint} = Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint($args->{isa});
}
elsif(exists $args->{does}){
- # TODO
- # $args->{type_constraint} = Mouse::Util::TypeConstraints::find_or_create_does_type_constraint($args->{does});
+ $args->{type_constraint} = Mouse::Util::TypeConstraints::find_or_create_does_type_constraint($args->{does});
}
$tc = $args->{type_constraint};
}
-sub get_read_method { # DEPRECATED
+sub get_read_method {
$_[0]->{reader} || $_[0]->{accessor}
}
-sub get_write_method { # DEPRECATED
+sub get_write_method {
$_[0]->{writer} || $_[0]->{accessor}
}