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'

No, wait, even better, just use Want: https://metacpan.org/module/Want

Alright, see this gist: https://gist.github.com/1790290

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.