$node->climb_up(sub {
  my ($node, $cont) = @_;

  if (should_continue($node)) {
    goto &$cont;
  }
  else {
    return 42;
  }
});