sub email : Property {
        my $self = shift;
        $_ = 'some_arbitrary@address.com';
        1;
    }

    # ...

    # user code
    $self->email = 'my@address.com';
    print $self->email;  #  prints some_arbitrary@address.com