# Assume I have foo, bar, and baz as my attributes

my $x = $self->foo;  # This retrieves the value in foo
$self->foo(123);     # This sets foo to 123 (and returns $self, to allow for:
$self->foo(123)      # chaining of mutator calls
     ->bar(456);

##</code><code>##

my %values;
@values{qw(foo bar baz)} = $self->get(qw(foo bar baz));
$self->set(
    foo => 123,
    bar => 456,
);