has 'name' => (
    is => 'rw',
    writer => 'set_name',
    reader => 'get_name',
);

has 'email', is => 'rw';



sub set_name {
        my ($self, $name) = @_;
        
        $self->name = $name;    
}

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