sub path_to_root {
	my $self = shift;
	my $path = $self->get_branch_length;
	my $parent = $self->get_parent;

	while ( $parent ) {
		$path += $parent->get_branch_length;
		$parent = $parent->get_parent;
	}

	return $path;
}