sub bar {
    return $_[0]->{bar};
}
sub baz {
    return $_[0]->{baz};
}

# or even, if attributes are related:

sub get {
    my ($self, $want) = @_;
    return $self->{$want};
}