sub foo { my ($self, @args) = _self_or_default(@_); # continue coding OO-style }