Select Code to Download

$value = $object->field_name; # get value
$object->field_name($value);  # set value

def givenName(self, value=omitted):
    if value is not omitted:
        self._givenName=value
    return self._givenName

sub givenName {
    my $self = shift;
    $self->{_givenName} = shift if @_;
    return $self->{_givenName};
};

multi method givenName (Foo $self) {
    $self._givenName;
...
multi method givenName (Foo $self, $value) {
    $self._givenName = $value;
};

method givenName ( ?$value ) {
    defined $value ? $._given_name = $value : $._given_name;    
};