package Person;

use warnings;
use strict;

use GetterSetter;

sub new
{
    my $class = shift;
    my %args  = @_;

    my $self = bless {}, $class;

    $self->age->set  ( $args{age}  || 0  );
    $self->name->set ( $args{name} || "" );

    return $self;
}

sub age
{
    my $self = shift;
    # return GetterSetter with validation
    return GetterSetter->new($self, "age", sub { return $_[0] =~ /^[0-9]+$/ });
}

sub name
{
    my $self = shift;
    # return GetterSetter without validation
    return GetterSetter->new($self, "name");;
}