die 'Current token is not a start tag' unless ($self->current_token->is_start_tag);
my $type = $self->current_token->get_tag;

my $content = '';
$content .= $self->current_token_content if ($include_tag);
while ($self->next_token) {
	if ($self->current_token->is_end_tag) {
		die "Found end tag, but wrong type" unless ($self->current_token->is_end_tag($type));
		$content .= $self->current_token_content if ($include_tag);
		return $content;
	}
	elsif ($self->current_token->is_start_tag) {
		$content .= $self->get_inner_advance(1);
	}
	else {
		$content .= $self->current_token_content;
	}
}
die "Error: premature end of document";
}