sub accessor {
    my $self = shift;
    if (@_) {  # Sets the attribute.
        $$self{key} = shift;
        return $self;
    }
    return $$self{key}; # Gets the attribute.
}

##</code><code>##

my $obj->key1(value1)
       ->key2(value2)
       ->key3(value3);