Select Code to Download

$cursor->move_right(3); # move cursor three chars to the right
$cursor->move_down(); # move cursor one line downwards
...
# position one char to the left of the cursor

my $start = $cursor->start_of_document();

sub frobnicate_position {
    my ($self) = @_;
...

    return $obj
};

sub positional_mutator(&;$) {
    my ($worker,$name) = @_;
...
  ... calculate new position here
}, 'frobnicate_position';