1 package MooseX::IsDefaults::Meta::IsRW;
4 # This does not actually do anything but lie less in the attribute's metadata.
9 around _process_options => sub {
11 my (undef, undef, $options) = @_;
13 if (!exists($options->{is})) {
14 $options->{is} = 'rw';
16 # They want no accessor, but Moose doesn't like "is => undef"
17 elsif (!defined($options->{is})) {
18 delete $options->{is};