use Moose::Role;
-
-before '_process_options' => sub
-{
+before '_process_options' => sub {
my $class = shift;
my $name = shift;
my $options = shift;
- if ( exists $options->{is} &&
- ! ( exists $options->{reader} || exists $options->{writer} ) )
- {
- if ( $options->{is} eq 'ro' )
- {
+ if ( exists $options->{is}
+ && !( exists $options->{reader} || exists $options->{writer} ) ) {
+ if ( $options->{is} eq 'ro' ) {
$options->{reader} = $name;
+ delete $options->{is};
}
- elsif ( $options->{is} eq 'rw' )
- {
+ elsif ( $options->{is} eq 'rw' ) {
$options->{reader} = $name;
my $prefix = 'set';
- if ( $name =~ s/^_// )
- {
+ if ( $name =~ s/^_// ) {
$prefix = '_set';
}
$options->{writer} = $prefix . q{_} . $name;
+ delete $options->{is};
}
-
- delete $options->{is};
}
};
=head1 SYNOPSIS
- Moose::Util::MetaRole::apply_metaclass_roles
- ( for_class => $p{for_class},
- attribute_metaclass_roles =>
- ['MooseX::SemiAffordanceAccessor::Role::Attribute'],
- );
+ Moose::Util::MetaRole::apply_metaclass_roles(
+ for_class => $p{for_class},
+ attribute_metaclass_roles =>
+ ['MooseX::SemiAffordanceAccessor::Role::Attribute'],
+ );
=head1 DESCRIPTION