can't you just test for @_?

sub foo {
    my $self = shift;  # oops, forgot this line before
    if (@_) {
        $self->{foo} = shift;
        return $self;
    }
    return $self->{foo};
}
[download]

updated to shift off self. thanks, Moron