home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / doc / libxml-perl / examples / MyHandler.pm < prev    next >
Encoding:
Perl POD Document  |  2003-10-21  |  339 b   |  23 lines
  1. # This is the example module in doc/UsingPerlSAX.pod
  2.  
  3. package MyHandler;
  4.  
  5. sub new {
  6.     my ($type) = @_;
  7.     return bless {}, $type;
  8. }
  9.  
  10. sub start_element {
  11.     my ($self, $element) = @_;
  12.  
  13.     print "Start element: $element->{Name}\n";
  14. }
  15.  
  16. sub end_element {
  17.     my ($self, $element) = @_;
  18.  
  19.     print "End element: $element->{Name}\n";
  20. }
  21.  
  22. 1;
  23.