sub ... {
    ...
    my ( $foo, $bar, $baz )
      = @{$self}{qw(foo bar baz)};
    ...
}