use Want; sub foo { my( $self, @args )= @_; $self->munge(@args); return $self if want('OBJECT'); return @args; }