Python accessor example converted to Moose

accessor.pl

{
    package AnotherPerson;
    use Moose;
    use namespace::autoclean;
    
    has _firstname => (is => 'rw', isa => 'Str', accessor => 'firstname');
    has _lastname  => (is => 'rw', isa => 'Str', accessor => 'lastname' );
}

my $you = AnotherPerson->new;
$you->firstname('David');
$you->lastname('Mertens');



# 
# Stackoverflow answer: http://stackoverflow.com/a/9187853/12195
#

__END__

# orig Python example

class AnotherPerson:
    def __init__(self):
        self._firstname = None
        self._lastname = None

    @property
    def firstname(self):
        return self._firstname

    @firstname.setter
    def firstname(self, newname):
        self._firstname = newname

    @property
    def lastname(self):
        return self._lastname

    @lastname.setter
    def lastname(self, newname):
        self._lastname = newname

you = AnotherPerson()
you.firstname = 'David'  # These two lines call instance methods
you.lastname = 'Mertens'

There are some Perl modules already on CPAN which do provide lvalue accessors.....

• https://metacpan.org/module/Object::Accessor
• https://metacpan.org/module/Class::Accessor::Lvalue
• https://metacpan.org/module/Object::props
• https://metacpan.org/module/methods

I've never tried any of these so YMMV.