sub frobnicate_position {
    my ($self) = @_;
    my $obj;
    if (defined wantarray) {
        $obj = $self->copy();
    } else {
        $obj = $self;
    }

    ... calculate new position here,
    ... set $obj->line() and $obj->column()

    return $obj
};