I'm probably missing something, but isn't that just

sub frobnicate_position {
    my $obj = defined wantarray ? $_[0]->copy() : $_[0];

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

    return $obj
};
[download]