# This is the example module in doc/UsingPerlSAX.pod
package MyHandler;
sub new {
my ($type) = @_;
return bless {}, $type;
}
sub start_element {
my ($self, $element) = @_;
print "Start element: $element->{Name}\n";
}
sub end_element {
my ($self, $element) = @_;
print "End element: $element->{Name}\n";
}
1;