sub Node::climb_up {
    my ($self, $sub, $cont) = @_;

    my $p = $self;
    my @ret;
    while ( $p = $p->parent_row ) {
        @ret = $sub->($p,\$cont);
        next if $cont;
    }

    return @ret;
}