sub foo { 
    $self = shift;
    @_ <= 1 or croak 'Too many arguments (' . @_ . ')'; 

    if (@_) {
        # do whatever I need to. 
    }
    
    return $self->{foo};    # Or whatever.
}