+sub comment {
+ my ($self, $data) = @_;
+
+ return if (!defined($self->{'obj'}));
+
+ if (ref($self->{'obj'}) eq 'XML::TemplateSAX::Buffer') {
+ $self->{'obj'}->comment($data);
+ return;
+ }
+
+ $self->SUPER::comment($data);
+}
+
+sub processing_instruction {
+ my ($self, $data) = @_;
+
+ return if (!defined($self->{'obj'}));
+
+ if (ref($self->{'obj'}) eq 'XML::TemplateSAX::Buffer') {
+ $self->{'obj'}->processing_instruction($data);
+ return;
+ }
+
+ $self->SUPER::processing_instruction($data);
+}
+