sub _tagChar
{
        my $self = shift;
        my ($tag, $data) = @_;
        return unless(defined($tag) && defined($data));
        vverbose(9,"Tag: ($tag), Data: ($data)");
        $self->xml->startTag("$tag");
        $self->xml->characters($data);
        $self->xml->endTag("$tag");
}

##</code><code>##

 my $characters = sub {
    my $data = $_[0];
    if ($data =~ /[\&\<\>]/) {
      $data =~ s/\&/\&amp\;/g;
      $data =~ s/\</\&lt\;/g;
      $data =~ s/\>/\&gt\;/g;
    }
    &{$escapeEncoding}($data);
    $output->print($data);
    $hasData = 1;
  };