Editing Mutator method (section)

===Perl===
<syntaxhighlight lang="perl">
package Student;

sub new {
    bless {}, shift;
}

sub set_name {
    my $self = shift;
    $self->{name} = $_[0];
}

sub get_name {
    my $self = shift;
    return $self->{name};
}

1;
</syntaxhighlight>

Or, using Class::Accessor
<syntaxhighlight lang="perl">
package Student;
use base qw(Class::Accessor);
__PACKAGE__->follow_best_practice;

Student->mk_accessors(qw(name));

1;
</syntaxhighlight>

Or, using the [[Moose (Perl)|Moose Object System]]:
<syntaxhighlight lang="perl">
package Student;
use Moose;

# Moose uses the attribute name as the setter and getter, the reader and writer properties
# allow us to override that and provide our own names, in this case get_name and set_name
has 'name' => (is => 'rw', isa => 'Str', reader => 'get_name', writer => 'set_name');

1;
</syntaxhighlight>