sub _make_tag_func {
    my ($self,$tagname) = @_;
    my $func = qq(
        sub $tagname {