I would opt for

sub foo {
    my $self = shift;
    return @_ ? $_ = shift : $_ for $self->{_foo};
}
[download]

Makeshifts last the longest.