home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl5 / XML / Handler / Sample.pm < prev    next >
Encoding:
Perl POD Document  |  2003-10-21  |  3.1 KB  |  102 lines
  1. # This template file is in the Public Domain.
  2. # You may do anything you want with this file.
  3. #
  4. # $Id: Sample.pm,v 1.4 1999/08/16 16:04:03 kmacleod Exp $
  5. #
  6.  
  7. package XML::Handler::Sample;
  8.  
  9. use vars qw{ $AUTOLOAD };
  10.  
  11. sub new {
  12.     my $type = shift;
  13.     my $self = ( $#_ == 0 ) ? shift : { @_ };
  14.  
  15.     return bless $self, $type;
  16. }
  17.  
  18. # Basic PerlSAX
  19. sub start_document            { print "start_document\n"; }
  20. sub end_document              { print "end_document\n"; }
  21. sub start_element             { print "start_element\n"; }
  22. sub end_element               { print "end_element\n"; }
  23. sub characters                { print "characters\n"; }
  24. sub processing_instruction    { print "processing_instruction\n"; }
  25. sub ignorable_whitespace      { print "ignorable_whitespace\n"; }
  26.  
  27. # Additional expat callbacks in XML::Parser::PerlSAX
  28. sub comment                   { print "comment\n"; }
  29. sub notation_decl             { print "notation_decl\n"; }
  30. sub unparsed_entity_decl      { print "unparsed_entity_decl\n"; }
  31. sub entity_decl               { print "entity_decl\n"; }
  32. sub element_decl              { print "element_decl\n"; }
  33. sub doctype_decl              { print "doctype_decl\n"; }
  34. sub xml_decl                  { print "xml_decl\n"; }
  35.  
  36. # Additional SP/nsgmls callbacks in XML::ESISParser
  37. sub start_subdoc              { print "start_subdoc\n"; }
  38. sub end_subdoc                { print "start_subdoc\n"; }
  39. sub appinfo                   { print "appinfo\n"; }
  40. sub internal_entity_ref       { print "sdata\n"; }
  41. sub external_entity_ref       { print "sdata\n"; }
  42. sub record_end                { print "record_end\n"; }
  43. sub internal_entity_decl      { print "internal_entity_decl\n"; }
  44. sub external_entity_decl      { print "external_entity_decl\n"; }
  45. sub external_sgml_entity_decl { print "external_sgml_entity_decl\n"; }
  46. sub subdoc_entity_decl        { print "subdoc_entity_decl\n"; }
  47. sub notation                  { print "notation\n"; }
  48. sub error                     { print "error\n"; }
  49. sub conforming                { print "conforming\n"; }
  50.  
  51. # Others
  52. sub AUTOLOAD {
  53.     my $self = shift;
  54.  
  55.     my $method = $AUTOLOAD;
  56.     $method =~ s/.*:://;
  57.     return if $method eq 'DESTROY';
  58.  
  59.     print "UNRECOGNIZED $method\n";
  60. }
  61.  
  62. 1;
  63.  
  64. __END__
  65.  
  66. =head1 NAME
  67.  
  68. XML::Handler::Sample - a trivial PerlSAX handler
  69.  
  70. =head1 SYNOPSIS
  71.  
  72.  use XML::Parser::PerlSAX;
  73.  use XML::Handler::Sample;
  74.  
  75.  $my_handler = XML::Handler::Sample->new;
  76.  
  77.  XML::Parser::PerlSAX->new->parse(Source => { SystemId => 'REC-xml-19980210.xml' },
  78.                                   Handler => $my_handler);
  79.  
  80. =head1 DESCRIPTION
  81.  
  82. C<XML::Handler::Sample> is a trivial PerlSAX handler that prints out
  83. the name of each event it receives.  The source for
  84. C<XML::Handler::Sample> lists all the currently known PerlSAX
  85. handler methods.
  86.  
  87. C<XML::Handler::Sample> is intended for Perl module authors who wish
  88. to look at example PerlSAX handler modules.  C<XML::Handler::Sample>
  89. can be used as a template for writing your own PerlSAX handler
  90. modules.  C<XML::Handler::Sample> is in the Public Domain and can be
  91. used for any purpose without restriction.
  92.  
  93. =head1 AUTHOR
  94.  
  95. Ken MacLeod, ken@bitsko.slc.ut.us
  96.  
  97. =head1 SEE ALSO
  98.  
  99. perl(1), PerlSAX.pod(3)
  100.  
  101. =cut
  102.