home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Base.pm < prev    next >
Encoding:
Perl POD Document  |  2003-11-15  |  112.9 KB  |  2,855 lines
  1. package XML::SAX::Base;
  2.  
  3. # version 0.10 - Kip Hampton <khampton@totalcinema.com>
  4. # version 0.13 - Robin Berjon <robin@knowscape.com>
  5. # version 0.15 - Kip Hampton <khampton@totalcinema.com>
  6. # version 0.17 - Kip Hampton <khampton@totalcinema.com>
  7. # version 0.19 - Kip Hampton <khampton@totalcinema.com>
  8. # version 0.21 - Kip Hampton <khampton@totalcinema.com>
  9. # version 0.22 - Robin Berjon <robin@knowscape.com>
  10. # version 0.23 - Matt Sergeant <matt@sergeant.org>
  11. # version 0.24 - Robin Berjon <robin@knowscape.com>
  12. # version 0.25 - Kip Hampton <khampton@totalcinema.com>
  13. # version 1.00 - Kip Hampton <khampton@totalcinema.com>
  14. # version 1.01 - Kip Hampton <khampton@totalcinema.com>
  15. # version 1.02 - Robin Berjon <robin@knowscape.com>
  16. # version 1.03 - Matt Sergeant <matt@sergeant.org>
  17. # version 1.04 - Kip Hampton <khampton@totalcinema.com>
  18.  
  19. #-----------------------------------------------------#
  20. # STOP!!!!!
  21. #
  22. # This file is generated by the 'Makefile.PL' file
  23. # that ships with the XML::SAX distribution.
  24. # If you need to make changes, patch that file NOT
  25. # this one.
  26. #-----------------------------------------------------#
  27.  
  28. use strict;
  29. use vars qw($VERSION);
  30. use XML::SAX::Exception qw();
  31.  
  32. $VERSION = '1.04';
  33.  
  34. sub end_prefix_mapping {
  35.     my $self = shift;
  36.     if (defined $self->{Methods}->{'end_prefix_mapping'}) {
  37.         $self->{Methods}->{'end_prefix_mapping'}->(@_);
  38.     }
  39.     else {
  40.         my $method;
  41.         my $callbacks;
  42.         if (exists $self->{ParseOptions}) {
  43.             $callbacks = $self->{ParseOptions};
  44.         }
  45.         else {
  46.             $callbacks = $self;
  47.         }
  48.         if (0) { # dummy to make elsif's below compile
  49.         }
  50.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('end_prefix_mapping') ) {
  51.             my $handler = $callbacks->{'ContentHandler'};
  52.             $self->{Methods}->{'end_prefix_mapping'} = sub { $method->($handler, @_) };
  53.             return $method->($handler, @_);
  54.         }
  55.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('end_prefix_mapping') ) {
  56.             my $handler = $callbacks->{'Handler'};
  57.             $self->{Methods}->{'end_prefix_mapping'} = sub { $method->($handler, @_) };
  58.             return $method->($handler, @_);
  59.         }
  60.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  61.             my $res = eval { $callbacks->{'ContentHandler'}->end_prefix_mapping(@_) };
  62.             if ($@) {
  63.                 die $@;
  64.             }
  65.             else {
  66.                 # I think there's a buggette here...
  67.                 # if the first call throws an exception, we don't set it up right.
  68.                 # Not fatal, but we might want to address it.
  69.                 my $handler = $callbacks->{'ContentHandler'};
  70.                 $self->{Methods}->{'end_prefix_mapping'} = sub { $handler->end_prefix_mapping(@_) };
  71.             }
  72.             return $res;
  73.         }
  74.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  75.             my $res = eval { $callbacks->{'Handler'}->end_prefix_mapping(@_) };
  76.             if ($@) {
  77.                 die $@;
  78.             }
  79.             else {
  80.                 # I think there's a buggette here...
  81.                 # if the first call throws an exception, we don't set it up right.
  82.                 # Not fatal, but we might want to address it.
  83.                 my $handler = $callbacks->{'Handler'};
  84.                 $self->{Methods}->{'end_prefix_mapping'} = sub { $handler->end_prefix_mapping(@_) };
  85.             }
  86.             return $res;
  87.         }
  88.         else {
  89.             $self->{Methods}->{'end_prefix_mapping'} = sub { };
  90.         }
  91.     }
  92.  
  93. }
  94.  
  95. sub internal_entity_decl {
  96.     my $self = shift;
  97.     if (defined $self->{Methods}->{'internal_entity_decl'}) {
  98.         $self->{Methods}->{'internal_entity_decl'}->(@_);
  99.     }
  100.     else {
  101.         my $method;
  102.         my $callbacks;
  103.         if (exists $self->{ParseOptions}) {
  104.             $callbacks = $self->{ParseOptions};
  105.         }
  106.         else {
  107.             $callbacks = $self;
  108.         }
  109.         if (0) { # dummy to make elsif's below compile
  110.         }
  111.         elsif (defined $callbacks->{'DeclHandler'} and $method = $callbacks->{'DeclHandler'}->can('internal_entity_decl') ) {
  112.             my $handler = $callbacks->{'DeclHandler'};
  113.             $self->{Methods}->{'internal_entity_decl'} = sub { $method->($handler, @_) };
  114.             return $method->($handler, @_);
  115.         }
  116.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('internal_entity_decl') ) {
  117.             my $handler = $callbacks->{'Handler'};
  118.             $self->{Methods}->{'internal_entity_decl'} = sub { $method->($handler, @_) };
  119.             return $method->($handler, @_);
  120.         }
  121.         elsif (defined $callbacks->{'DeclHandler'} and $callbacks->{'DeclHandler'}->can('AUTOLOAD') ) {
  122.             my $res = eval { $callbacks->{'DeclHandler'}->internal_entity_decl(@_) };
  123.             if ($@) {
  124.                 die $@;
  125.             }
  126.             else {
  127.                 # I think there's a buggette here...
  128.                 # if the first call throws an exception, we don't set it up right.
  129.                 # Not fatal, but we might want to address it.
  130.                 my $handler = $callbacks->{'DeclHandler'};
  131.                 $self->{Methods}->{'internal_entity_decl'} = sub { $handler->internal_entity_decl(@_) };
  132.             }
  133.             return $res;
  134.         }
  135.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  136.             my $res = eval { $callbacks->{'Handler'}->internal_entity_decl(@_) };
  137.             if ($@) {
  138.                 die $@;
  139.             }
  140.             else {
  141.                 # I think there's a buggette here...
  142.                 # if the first call throws an exception, we don't set it up right.
  143.                 # Not fatal, but we might want to address it.
  144.                 my $handler = $callbacks->{'Handler'};
  145.                 $self->{Methods}->{'internal_entity_decl'} = sub { $handler->internal_entity_decl(@_) };
  146.             }
  147.             return $res;
  148.         }
  149.         else {
  150.             $self->{Methods}->{'internal_entity_decl'} = sub { };
  151.         }
  152.     }
  153.  
  154. }
  155.  
  156. sub characters {
  157.     my $self = shift;
  158.     if (defined $self->{Methods}->{'characters'}) {
  159.         $self->{Methods}->{'characters'}->(@_);
  160.     }
  161.     else {
  162.         my $method;
  163.         my $callbacks;
  164.         if (exists $self->{ParseOptions}) {
  165.             $callbacks = $self->{ParseOptions};
  166.         }
  167.         else {
  168.             $callbacks = $self;
  169.         }
  170.         if (0) { # dummy to make elsif's below compile
  171.         }
  172.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('characters') ) {
  173.             my $handler = $callbacks->{'ContentHandler'};
  174.             $self->{Methods}->{'characters'} = sub { $method->($handler, @_) };
  175.             return $method->($handler, @_);
  176.         }
  177.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('characters') ) {
  178.             my $handler = $callbacks->{'DocumentHandler'};
  179.             $self->{Methods}->{'characters'} = sub { $method->($handler, @_) };
  180.             return $method->($handler, @_);
  181.         }
  182.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('characters') ) {
  183.             my $handler = $callbacks->{'Handler'};
  184.             $self->{Methods}->{'characters'} = sub { $method->($handler, @_) };
  185.             return $method->($handler, @_);
  186.         }
  187.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  188.             my $res = eval { $callbacks->{'ContentHandler'}->characters(@_) };
  189.             if ($@) {
  190.                 die $@;
  191.             }
  192.             else {
  193.                 # I think there's a buggette here...
  194.                 # if the first call throws an exception, we don't set it up right.
  195.                 # Not fatal, but we might want to address it.
  196.                 my $handler = $callbacks->{'ContentHandler'};
  197.                 $self->{Methods}->{'characters'} = sub { $handler->characters(@_) };
  198.             }
  199.             return $res;
  200.         }
  201.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  202.             my $res = eval { $callbacks->{'DocumentHandler'}->characters(@_) };
  203.             if ($@) {
  204.                 die $@;
  205.             }
  206.             else {
  207.                 # I think there's a buggette here...
  208.                 # if the first call throws an exception, we don't set it up right.
  209.                 # Not fatal, but we might want to address it.
  210.                 my $handler = $callbacks->{'DocumentHandler'};
  211.                 $self->{Methods}->{'characters'} = sub { $handler->characters(@_) };
  212.             }
  213.             return $res;
  214.         }
  215.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  216.             my $res = eval { $callbacks->{'Handler'}->characters(@_) };
  217.             if ($@) {
  218.                 die $@;
  219.             }
  220.             else {
  221.                 # I think there's a buggette here...
  222.                 # if the first call throws an exception, we don't set it up right.
  223.                 # Not fatal, but we might want to address it.
  224.                 my $handler = $callbacks->{'Handler'};
  225.                 $self->{Methods}->{'characters'} = sub { $handler->characters(@_) };
  226.             }
  227.             return $res;
  228.         }
  229.         else {
  230.             $self->{Methods}->{'characters'} = sub { };
  231.         }
  232.     }
  233.  
  234. }
  235.  
  236. sub start_element {
  237.     my $self = shift;
  238.     if (defined $self->{Methods}->{'start_element'}) {
  239.         $self->{Methods}->{'start_element'}->(@_);
  240.     }
  241.     else {
  242.         my $method;
  243.         my $callbacks;
  244.         if (exists $self->{ParseOptions}) {
  245.             $callbacks = $self->{ParseOptions};
  246.         }
  247.         else {
  248.             $callbacks = $self;
  249.         }
  250.         if (0) { # dummy to make elsif's below compile
  251.         }
  252.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('start_element') ) {
  253.             my $handler = $callbacks->{'ContentHandler'};
  254.             $self->{Methods}->{'start_element'} = sub { $method->($handler, @_) };
  255.             return $method->($handler, @_);
  256.         }
  257.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('start_element') ) {
  258.             my $handler = $callbacks->{'DocumentHandler'};
  259.             $self->{Methods}->{'start_element'} = sub { $method->($handler, @_) };
  260.             return $method->($handler, @_);
  261.         }
  262.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('start_element') ) {
  263.             my $handler = $callbacks->{'Handler'};
  264.             $self->{Methods}->{'start_element'} = sub { $method->($handler, @_) };
  265.             return $method->($handler, @_);
  266.         }
  267.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  268.             my $res = eval { $callbacks->{'ContentHandler'}->start_element(@_) };
  269.             if ($@) {
  270.                 die $@;
  271.             }
  272.             else {
  273.                 # I think there's a buggette here...
  274.                 # if the first call throws an exception, we don't set it up right.
  275.                 # Not fatal, but we might want to address it.
  276.                 my $handler = $callbacks->{'ContentHandler'};
  277.                 $self->{Methods}->{'start_element'} = sub { $handler->start_element(@_) };
  278.             }
  279.             return $res;
  280.         }
  281.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  282.             my $res = eval { $callbacks->{'DocumentHandler'}->start_element(@_) };
  283.             if ($@) {
  284.                 die $@;
  285.             }
  286.             else {
  287.                 # I think there's a buggette here...
  288.                 # if the first call throws an exception, we don't set it up right.
  289.                 # Not fatal, but we might want to address it.
  290.                 my $handler = $callbacks->{'DocumentHandler'};
  291.                 $self->{Methods}->{'start_element'} = sub { $handler->start_element(@_) };
  292.             }
  293.             return $res;
  294.         }
  295.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  296.             my $res = eval { $callbacks->{'Handler'}->start_element(@_) };
  297.             if ($@) {
  298.                 die $@;
  299.             }
  300.             else {
  301.                 # I think there's a buggette here...
  302.                 # if the first call throws an exception, we don't set it up right.
  303.                 # Not fatal, but we might want to address it.
  304.                 my $handler = $callbacks->{'Handler'};
  305.                 $self->{Methods}->{'start_element'} = sub { $handler->start_element(@_) };
  306.             }
  307.             return $res;
  308.         }
  309.         else {
  310.             $self->{Methods}->{'start_element'} = sub { };
  311.         }
  312.     }
  313.  
  314. }
  315.  
  316. sub external_entity_decl {
  317.     my $self = shift;
  318.     if (defined $self->{Methods}->{'external_entity_decl'}) {
  319.         $self->{Methods}->{'external_entity_decl'}->(@_);
  320.     }
  321.     else {
  322.         my $method;
  323.         my $callbacks;
  324.         if (exists $self->{ParseOptions}) {
  325.             $callbacks = $self->{ParseOptions};
  326.         }
  327.         else {
  328.             $callbacks = $self;
  329.         }
  330.         if (0) { # dummy to make elsif's below compile
  331.         }
  332.         elsif (defined $callbacks->{'DeclHandler'} and $method = $callbacks->{'DeclHandler'}->can('external_entity_decl') ) {
  333.             my $handler = $callbacks->{'DeclHandler'};
  334.             $self->{Methods}->{'external_entity_decl'} = sub { $method->($handler, @_) };
  335.             return $method->($handler, @_);
  336.         }
  337.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('external_entity_decl') ) {
  338.             my $handler = $callbacks->{'Handler'};
  339.             $self->{Methods}->{'external_entity_decl'} = sub { $method->($handler, @_) };
  340.             return $method->($handler, @_);
  341.         }
  342.         elsif (defined $callbacks->{'DeclHandler'} and $callbacks->{'DeclHandler'}->can('AUTOLOAD') ) {
  343.             my $res = eval { $callbacks->{'DeclHandler'}->external_entity_decl(@_) };
  344.             if ($@) {
  345.                 die $@;
  346.             }
  347.             else {
  348.                 # I think there's a buggette here...
  349.                 # if the first call throws an exception, we don't set it up right.
  350.                 # Not fatal, but we might want to address it.
  351.                 my $handler = $callbacks->{'DeclHandler'};
  352.                 $self->{Methods}->{'external_entity_decl'} = sub { $handler->external_entity_decl(@_) };
  353.             }
  354.             return $res;
  355.         }
  356.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  357.             my $res = eval { $callbacks->{'Handler'}->external_entity_decl(@_) };
  358.             if ($@) {
  359.                 die $@;
  360.             }
  361.             else {
  362.                 # I think there's a buggette here...
  363.                 # if the first call throws an exception, we don't set it up right.
  364.                 # Not fatal, but we might want to address it.
  365.                 my $handler = $callbacks->{'Handler'};
  366.                 $self->{Methods}->{'external_entity_decl'} = sub { $handler->external_entity_decl(@_) };
  367.             }
  368.             return $res;
  369.         }
  370.         else {
  371.             $self->{Methods}->{'external_entity_decl'} = sub { };
  372.         }
  373.     }
  374.  
  375. }
  376.  
  377. sub xml_decl {
  378.     my $self = shift;
  379.     if (defined $self->{Methods}->{'xml_decl'}) {
  380.         $self->{Methods}->{'xml_decl'}->(@_);
  381.     }
  382.     else {
  383.         my $method;
  384.         my $callbacks;
  385.         if (exists $self->{ParseOptions}) {
  386.             $callbacks = $self->{ParseOptions};
  387.         }
  388.         else {
  389.             $callbacks = $self;
  390.         }
  391.         if (0) { # dummy to make elsif's below compile
  392.         }
  393.         elsif (defined $callbacks->{'DTDHandler'} and $method = $callbacks->{'DTDHandler'}->can('xml_decl') ) {
  394.             my $handler = $callbacks->{'DTDHandler'};
  395.             $self->{Methods}->{'xml_decl'} = sub { $method->($handler, @_) };
  396.             return $method->($handler, @_);
  397.         }
  398.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('xml_decl') ) {
  399.             my $handler = $callbacks->{'Handler'};
  400.             $self->{Methods}->{'xml_decl'} = sub { $method->($handler, @_) };
  401.             return $method->($handler, @_);
  402.         }
  403.         elsif (defined $callbacks->{'DTDHandler'} and $callbacks->{'DTDHandler'}->can('AUTOLOAD') ) {
  404.             my $res = eval { $callbacks->{'DTDHandler'}->xml_decl(@_) };
  405.             if ($@) {
  406.                 die $@;
  407.             }
  408.             else {
  409.                 # I think there's a buggette here...
  410.                 # if the first call throws an exception, we don't set it up right.
  411.                 # Not fatal, but we might want to address it.
  412.                 my $handler = $callbacks->{'DTDHandler'};
  413.                 $self->{Methods}->{'xml_decl'} = sub { $handler->xml_decl(@_) };
  414.             }
  415.             return $res;
  416.         }
  417.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  418.             my $res = eval { $callbacks->{'Handler'}->xml_decl(@_) };
  419.             if ($@) {
  420.                 die $@;
  421.             }
  422.             else {
  423.                 # I think there's a buggette here...
  424.                 # if the first call throws an exception, we don't set it up right.
  425.                 # Not fatal, but we might want to address it.
  426.                 my $handler = $callbacks->{'Handler'};
  427.                 $self->{Methods}->{'xml_decl'} = sub { $handler->xml_decl(@_) };
  428.             }
  429.             return $res;
  430.         }
  431.         else {
  432.             $self->{Methods}->{'xml_decl'} = sub { };
  433.         }
  434.     }
  435.  
  436. }
  437.  
  438. sub entity_decl {
  439.     my $self = shift;
  440.     if (defined $self->{Methods}->{'entity_decl'}) {
  441.         $self->{Methods}->{'entity_decl'}->(@_);
  442.     }
  443.     else {
  444.         my $method;
  445.         my $callbacks;
  446.         if (exists $self->{ParseOptions}) {
  447.             $callbacks = $self->{ParseOptions};
  448.         }
  449.         else {
  450.             $callbacks = $self;
  451.         }
  452.         if (0) { # dummy to make elsif's below compile
  453.         }
  454.         elsif (defined $callbacks->{'DTDHandler'} and $method = $callbacks->{'DTDHandler'}->can('entity_decl') ) {
  455.             my $handler = $callbacks->{'DTDHandler'};
  456.             $self->{Methods}->{'entity_decl'} = sub { $method->($handler, @_) };
  457.             return $method->($handler, @_);
  458.         }
  459.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('entity_decl') ) {
  460.             my $handler = $callbacks->{'Handler'};
  461.             $self->{Methods}->{'entity_decl'} = sub { $method->($handler, @_) };
  462.             return $method->($handler, @_);
  463.         }
  464.         elsif (defined $callbacks->{'DTDHandler'} and $callbacks->{'DTDHandler'}->can('AUTOLOAD') ) {
  465.             my $res = eval { $callbacks->{'DTDHandler'}->entity_decl(@_) };
  466.             if ($@) {
  467.                 die $@;
  468.             }
  469.             else {
  470.                 # I think there's a buggette here...
  471.                 # if the first call throws an exception, we don't set it up right.
  472.                 # Not fatal, but we might want to address it.
  473.                 my $handler = $callbacks->{'DTDHandler'};
  474.                 $self->{Methods}->{'entity_decl'} = sub { $handler->entity_decl(@_) };
  475.             }
  476.             return $res;
  477.         }
  478.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  479.             my $res = eval { $callbacks->{'Handler'}->entity_decl(@_) };
  480.             if ($@) {
  481.                 die $@;
  482.             }
  483.             else {
  484.                 # I think there's a buggette here...
  485.                 # if the first call throws an exception, we don't set it up right.
  486.                 # Not fatal, but we might want to address it.
  487.                 my $handler = $callbacks->{'Handler'};
  488.                 $self->{Methods}->{'entity_decl'} = sub { $handler->entity_decl(@_) };
  489.             }
  490.             return $res;
  491.         }
  492.         else {
  493.             $self->{Methods}->{'entity_decl'} = sub { };
  494.         }
  495.     }
  496.  
  497. }
  498.  
  499. sub end_dtd {
  500.     my $self = shift;
  501.     if (defined $self->{Methods}->{'end_dtd'}) {
  502.         $self->{Methods}->{'end_dtd'}->(@_);
  503.     }
  504.     else {
  505.         my $method;
  506.         my $callbacks;
  507.         if (exists $self->{ParseOptions}) {
  508.             $callbacks = $self->{ParseOptions};
  509.         }
  510.         else {
  511.             $callbacks = $self;
  512.         }
  513.         if (0) { # dummy to make elsif's below compile
  514.         }
  515.         elsif (defined $callbacks->{'LexicalHandler'} and $method = $callbacks->{'LexicalHandler'}->can('end_dtd') ) {
  516.             my $handler = $callbacks->{'LexicalHandler'};
  517.             $self->{Methods}->{'end_dtd'} = sub { $method->($handler, @_) };
  518.             return $method->($handler, @_);
  519.         }
  520.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('end_dtd') ) {
  521.             my $handler = $callbacks->{'Handler'};
  522.             $self->{Methods}->{'end_dtd'} = sub { $method->($handler, @_) };
  523.             return $method->($handler, @_);
  524.         }
  525.         elsif (defined $callbacks->{'LexicalHandler'} and $callbacks->{'LexicalHandler'}->can('AUTOLOAD') ) {
  526.             my $res = eval { $callbacks->{'LexicalHandler'}->end_dtd(@_) };
  527.             if ($@) {
  528.                 die $@;
  529.             }
  530.             else {
  531.                 # I think there's a buggette here...
  532.                 # if the first call throws an exception, we don't set it up right.
  533.                 # Not fatal, but we might want to address it.
  534.                 my $handler = $callbacks->{'LexicalHandler'};
  535.                 $self->{Methods}->{'end_dtd'} = sub { $handler->end_dtd(@_) };
  536.             }
  537.             return $res;
  538.         }
  539.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  540.             my $res = eval { $callbacks->{'Handler'}->end_dtd(@_) };
  541.             if ($@) {
  542.                 die $@;
  543.             }
  544.             else {
  545.                 # I think there's a buggette here...
  546.                 # if the first call throws an exception, we don't set it up right.
  547.                 # Not fatal, but we might want to address it.
  548.                 my $handler = $callbacks->{'Handler'};
  549.                 $self->{Methods}->{'end_dtd'} = sub { $handler->end_dtd(@_) };
  550.             }
  551.             return $res;
  552.         }
  553.         else {
  554.             $self->{Methods}->{'end_dtd'} = sub { };
  555.         }
  556.     }
  557.  
  558. }
  559.  
  560. sub unparsed_entity_decl {
  561.     my $self = shift;
  562.     if (defined $self->{Methods}->{'unparsed_entity_decl'}) {
  563.         $self->{Methods}->{'unparsed_entity_decl'}->(@_);
  564.     }
  565.     else {
  566.         my $method;
  567.         my $callbacks;
  568.         if (exists $self->{ParseOptions}) {
  569.             $callbacks = $self->{ParseOptions};
  570.         }
  571.         else {
  572.             $callbacks = $self;
  573.         }
  574.         if (0) { # dummy to make elsif's below compile
  575.         }
  576.         elsif (defined $callbacks->{'DTDHandler'} and $method = $callbacks->{'DTDHandler'}->can('unparsed_entity_decl') ) {
  577.             my $handler = $callbacks->{'DTDHandler'};
  578.             $self->{Methods}->{'unparsed_entity_decl'} = sub { $method->($handler, @_) };
  579.             return $method->($handler, @_);
  580.         }
  581.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('unparsed_entity_decl') ) {
  582.             my $handler = $callbacks->{'Handler'};
  583.             $self->{Methods}->{'unparsed_entity_decl'} = sub { $method->($handler, @_) };
  584.             return $method->($handler, @_);
  585.         }
  586.         elsif (defined $callbacks->{'DTDHandler'} and $callbacks->{'DTDHandler'}->can('AUTOLOAD') ) {
  587.             my $res = eval { $callbacks->{'DTDHandler'}->unparsed_entity_decl(@_) };
  588.             if ($@) {
  589.                 die $@;
  590.             }
  591.             else {
  592.                 # I think there's a buggette here...
  593.                 # if the first call throws an exception, we don't set it up right.
  594.                 # Not fatal, but we might want to address it.
  595.                 my $handler = $callbacks->{'DTDHandler'};
  596.                 $self->{Methods}->{'unparsed_entity_decl'} = sub { $handler->unparsed_entity_decl(@_) };
  597.             }
  598.             return $res;
  599.         }
  600.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  601.             my $res = eval { $callbacks->{'Handler'}->unparsed_entity_decl(@_) };
  602.             if ($@) {
  603.                 die $@;
  604.             }
  605.             else {
  606.                 # I think there's a buggette here...
  607.                 # if the first call throws an exception, we don't set it up right.
  608.                 # Not fatal, but we might want to address it.
  609.                 my $handler = $callbacks->{'Handler'};
  610.                 $self->{Methods}->{'unparsed_entity_decl'} = sub { $handler->unparsed_entity_decl(@_) };
  611.             }
  612.             return $res;
  613.         }
  614.         else {
  615.             $self->{Methods}->{'unparsed_entity_decl'} = sub { };
  616.         }
  617.     }
  618.  
  619. }
  620.  
  621. sub processing_instruction {
  622.     my $self = shift;
  623.     if (defined $self->{Methods}->{'processing_instruction'}) {
  624.         $self->{Methods}->{'processing_instruction'}->(@_);
  625.     }
  626.     else {
  627.         my $method;
  628.         my $callbacks;
  629.         if (exists $self->{ParseOptions}) {
  630.             $callbacks = $self->{ParseOptions};
  631.         }
  632.         else {
  633.             $callbacks = $self;
  634.         }
  635.         if (0) { # dummy to make elsif's below compile
  636.         }
  637.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('processing_instruction') ) {
  638.             my $handler = $callbacks->{'ContentHandler'};
  639.             $self->{Methods}->{'processing_instruction'} = sub { $method->($handler, @_) };
  640.             return $method->($handler, @_);
  641.         }
  642.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('processing_instruction') ) {
  643.             my $handler = $callbacks->{'DocumentHandler'};
  644.             $self->{Methods}->{'processing_instruction'} = sub { $method->($handler, @_) };
  645.             return $method->($handler, @_);
  646.         }
  647.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('processing_instruction') ) {
  648.             my $handler = $callbacks->{'Handler'};
  649.             $self->{Methods}->{'processing_instruction'} = sub { $method->($handler, @_) };
  650.             return $method->($handler, @_);
  651.         }
  652.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  653.             my $res = eval { $callbacks->{'ContentHandler'}->processing_instruction(@_) };
  654.             if ($@) {
  655.                 die $@;
  656.             }
  657.             else {
  658.                 # I think there's a buggette here...
  659.                 # if the first call throws an exception, we don't set it up right.
  660.                 # Not fatal, but we might want to address it.
  661.                 my $handler = $callbacks->{'ContentHandler'};
  662.                 $self->{Methods}->{'processing_instruction'} = sub { $handler->processing_instruction(@_) };
  663.             }
  664.             return $res;
  665.         }
  666.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  667.             my $res = eval { $callbacks->{'DocumentHandler'}->processing_instruction(@_) };
  668.             if ($@) {
  669.                 die $@;
  670.             }
  671.             else {
  672.                 # I think there's a buggette here...
  673.                 # if the first call throws an exception, we don't set it up right.
  674.                 # Not fatal, but we might want to address it.
  675.                 my $handler = $callbacks->{'DocumentHandler'};
  676.                 $self->{Methods}->{'processing_instruction'} = sub { $handler->processing_instruction(@_) };
  677.             }
  678.             return $res;
  679.         }
  680.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  681.             my $res = eval { $callbacks->{'Handler'}->processing_instruction(@_) };
  682.             if ($@) {
  683.                 die $@;
  684.             }
  685.             else {
  686.                 # I think there's a buggette here...
  687.                 # if the first call throws an exception, we don't set it up right.
  688.                 # Not fatal, but we might want to address it.
  689.                 my $handler = $callbacks->{'Handler'};
  690.                 $self->{Methods}->{'processing_instruction'} = sub { $handler->processing_instruction(@_) };
  691.             }
  692.             return $res;
  693.         }
  694.         else {
  695.             $self->{Methods}->{'processing_instruction'} = sub { };
  696.         }
  697.     }
  698.  
  699. }
  700.  
  701. sub attribute_decl {
  702.     my $self = shift;
  703.     if (defined $self->{Methods}->{'attribute_decl'}) {
  704.         $self->{Methods}->{'attribute_decl'}->(@_);
  705.     }
  706.     else {
  707.         my $method;
  708.         my $callbacks;
  709.         if (exists $self->{ParseOptions}) {
  710.             $callbacks = $self->{ParseOptions};
  711.         }
  712.         else {
  713.             $callbacks = $self;
  714.         }
  715.         if (0) { # dummy to make elsif's below compile
  716.         }
  717.         elsif (defined $callbacks->{'DeclHandler'} and $method = $callbacks->{'DeclHandler'}->can('attribute_decl') ) {
  718.             my $handler = $callbacks->{'DeclHandler'};
  719.             $self->{Methods}->{'attribute_decl'} = sub { $method->($handler, @_) };
  720.             return $method->($handler, @_);
  721.         }
  722.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('attribute_decl') ) {
  723.             my $handler = $callbacks->{'Handler'};
  724.             $self->{Methods}->{'attribute_decl'} = sub { $method->($handler, @_) };
  725.             return $method->($handler, @_);
  726.         }
  727.         elsif (defined $callbacks->{'DeclHandler'} and $callbacks->{'DeclHandler'}->can('AUTOLOAD') ) {
  728.             my $res = eval { $callbacks->{'DeclHandler'}->attribute_decl(@_) };
  729.             if ($@) {
  730.                 die $@;
  731.             }
  732.             else {
  733.                 # I think there's a buggette here...
  734.                 # if the first call throws an exception, we don't set it up right.
  735.                 # Not fatal, but we might want to address it.
  736.                 my $handler = $callbacks->{'DeclHandler'};
  737.                 $self->{Methods}->{'attribute_decl'} = sub { $handler->attribute_decl(@_) };
  738.             }
  739.             return $res;
  740.         }
  741.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  742.             my $res = eval { $callbacks->{'Handler'}->attribute_decl(@_) };
  743.             if ($@) {
  744.                 die $@;
  745.             }
  746.             else {
  747.                 # I think there's a buggette here...
  748.                 # if the first call throws an exception, we don't set it up right.
  749.                 # Not fatal, but we might want to address it.
  750.                 my $handler = $callbacks->{'Handler'};
  751.                 $self->{Methods}->{'attribute_decl'} = sub { $handler->attribute_decl(@_) };
  752.             }
  753.             return $res;
  754.         }
  755.         else {
  756.             $self->{Methods}->{'attribute_decl'} = sub { };
  757.         }
  758.     }
  759.  
  760. }
  761.  
  762. sub fatal_error {
  763.     my $self = shift;
  764.     if (defined $self->{Methods}->{'fatal_error'}) {
  765.         $self->{Methods}->{'fatal_error'}->(@_);
  766.     }
  767.     else {
  768.         my $method;
  769.         my $callbacks;
  770.         if (exists $self->{ParseOptions}) {
  771.             $callbacks = $self->{ParseOptions};
  772.         }
  773.         else {
  774.             $callbacks = $self;
  775.         }
  776.         if (0) { # dummy to make elsif's below compile
  777.         }
  778.         elsif (defined $callbacks->{'ErrorHandler'} and $method = $callbacks->{'ErrorHandler'}->can('fatal_error') ) {
  779.             my $handler = $callbacks->{'ErrorHandler'};
  780.             $self->{Methods}->{'fatal_error'} = sub { $method->($handler, @_) };
  781.             return $method->($handler, @_);
  782.         }
  783.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('fatal_error') ) {
  784.             my $handler = $callbacks->{'Handler'};
  785.             $self->{Methods}->{'fatal_error'} = sub { $method->($handler, @_) };
  786.             return $method->($handler, @_);
  787.         }
  788.         elsif (defined $callbacks->{'ErrorHandler'} and $callbacks->{'ErrorHandler'}->can('AUTOLOAD') ) {
  789.             my $res = eval { $callbacks->{'ErrorHandler'}->fatal_error(@_) };
  790.             if ($@) {
  791.                 die $@;
  792.             }
  793.             else {
  794.                 # I think there's a buggette here...
  795.                 # if the first call throws an exception, we don't set it up right.
  796.                 # Not fatal, but we might want to address it.
  797.                 my $handler = $callbacks->{'ErrorHandler'};
  798.                 $self->{Methods}->{'fatal_error'} = sub { $handler->fatal_error(@_) };
  799.             }
  800.             return $res;
  801.         }
  802.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  803.             my $res = eval { $callbacks->{'Handler'}->fatal_error(@_) };
  804.             if ($@) {
  805.                 die $@;
  806.             }
  807.             else {
  808.                 # I think there's a buggette here...
  809.                 # if the first call throws an exception, we don't set it up right.
  810.                 # Not fatal, but we might want to address it.
  811.                 my $handler = $callbacks->{'Handler'};
  812.                 $self->{Methods}->{'fatal_error'} = sub { $handler->fatal_error(@_) };
  813.             }
  814.             return $res;
  815.         }
  816.         else {
  817.             $self->{Methods}->{'fatal_error'} = sub { };
  818.         }
  819.     }
  820.  
  821. }
  822.  
  823. sub end_cdata {
  824.     my $self = shift;
  825.     if (defined $self->{Methods}->{'end_cdata'}) {
  826.         $self->{Methods}->{'end_cdata'}->(@_);
  827.     }
  828.     else {
  829.         my $method;
  830.         my $callbacks;
  831.         if (exists $self->{ParseOptions}) {
  832.             $callbacks = $self->{ParseOptions};
  833.         }
  834.         else {
  835.             $callbacks = $self;
  836.         }
  837.         if (0) { # dummy to make elsif's below compile
  838.         }
  839.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('end_cdata') ) {
  840.             my $handler = $callbacks->{'DocumentHandler'};
  841.             $self->{Methods}->{'end_cdata'} = sub { $method->($handler, @_) };
  842.             return $method->($handler, @_);
  843.         }
  844.         elsif (defined $callbacks->{'LexicalHandler'} and $method = $callbacks->{'LexicalHandler'}->can('end_cdata') ) {
  845.             my $handler = $callbacks->{'LexicalHandler'};
  846.             $self->{Methods}->{'end_cdata'} = sub { $method->($handler, @_) };
  847.             return $method->($handler, @_);
  848.         }
  849.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('end_cdata') ) {
  850.             my $handler = $callbacks->{'Handler'};
  851.             $self->{Methods}->{'end_cdata'} = sub { $method->($handler, @_) };
  852.             return $method->($handler, @_);
  853.         }
  854.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  855.             my $res = eval { $callbacks->{'DocumentHandler'}->end_cdata(@_) };
  856.             if ($@) {
  857.                 die $@;
  858.             }
  859.             else {
  860.                 # I think there's a buggette here...
  861.                 # if the first call throws an exception, we don't set it up right.
  862.                 # Not fatal, but we might want to address it.
  863.                 my $handler = $callbacks->{'DocumentHandler'};
  864.                 $self->{Methods}->{'end_cdata'} = sub { $handler->end_cdata(@_) };
  865.             }
  866.             return $res;
  867.         }
  868.         elsif (defined $callbacks->{'LexicalHandler'} and $callbacks->{'LexicalHandler'}->can('AUTOLOAD') ) {
  869.             my $res = eval { $callbacks->{'LexicalHandler'}->end_cdata(@_) };
  870.             if ($@) {
  871.                 die $@;
  872.             }
  873.             else {
  874.                 # I think there's a buggette here...
  875.                 # if the first call throws an exception, we don't set it up right.
  876.                 # Not fatal, but we might want to address it.
  877.                 my $handler = $callbacks->{'LexicalHandler'};
  878.                 $self->{Methods}->{'end_cdata'} = sub { $handler->end_cdata(@_) };
  879.             }
  880.             return $res;
  881.         }
  882.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  883.             my $res = eval { $callbacks->{'Handler'}->end_cdata(@_) };
  884.             if ($@) {
  885.                 die $@;
  886.             }
  887.             else {
  888.                 # I think there's a buggette here...
  889.                 # if the first call throws an exception, we don't set it up right.
  890.                 # Not fatal, but we might want to address it.
  891.                 my $handler = $callbacks->{'Handler'};
  892.                 $self->{Methods}->{'end_cdata'} = sub { $handler->end_cdata(@_) };
  893.             }
  894.             return $res;
  895.         }
  896.         else {
  897.             $self->{Methods}->{'end_cdata'} = sub { };
  898.         }
  899.     }
  900.  
  901. }
  902.  
  903. sub start_entity {
  904.     my $self = shift;
  905.     if (defined $self->{Methods}->{'start_entity'}) {
  906.         $self->{Methods}->{'start_entity'}->(@_);
  907.     }
  908.     else {
  909.         my $method;
  910.         my $callbacks;
  911.         if (exists $self->{ParseOptions}) {
  912.             $callbacks = $self->{ParseOptions};
  913.         }
  914.         else {
  915.             $callbacks = $self;
  916.         }
  917.         if (0) { # dummy to make elsif's below compile
  918.         }
  919.         elsif (defined $callbacks->{'LexicalHandler'} and $method = $callbacks->{'LexicalHandler'}->can('start_entity') ) {
  920.             my $handler = $callbacks->{'LexicalHandler'};
  921.             $self->{Methods}->{'start_entity'} = sub { $method->($handler, @_) };
  922.             return $method->($handler, @_);
  923.         }
  924.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('start_entity') ) {
  925.             my $handler = $callbacks->{'Handler'};
  926.             $self->{Methods}->{'start_entity'} = sub { $method->($handler, @_) };
  927.             return $method->($handler, @_);
  928.         }
  929.         elsif (defined $callbacks->{'LexicalHandler'} and $callbacks->{'LexicalHandler'}->can('AUTOLOAD') ) {
  930.             my $res = eval { $callbacks->{'LexicalHandler'}->start_entity(@_) };
  931.             if ($@) {
  932.                 die $@;
  933.             }
  934.             else {
  935.                 # I think there's a buggette here...
  936.                 # if the first call throws an exception, we don't set it up right.
  937.                 # Not fatal, but we might want to address it.
  938.                 my $handler = $callbacks->{'LexicalHandler'};
  939.                 $self->{Methods}->{'start_entity'} = sub { $handler->start_entity(@_) };
  940.             }
  941.             return $res;
  942.         }
  943.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  944.             my $res = eval { $callbacks->{'Handler'}->start_entity(@_) };
  945.             if ($@) {
  946.                 die $@;
  947.             }
  948.             else {
  949.                 # I think there's a buggette here...
  950.                 # if the first call throws an exception, we don't set it up right.
  951.                 # Not fatal, but we might want to address it.
  952.                 my $handler = $callbacks->{'Handler'};
  953.                 $self->{Methods}->{'start_entity'} = sub { $handler->start_entity(@_) };
  954.             }
  955.             return $res;
  956.         }
  957.         else {
  958.             $self->{Methods}->{'start_entity'} = sub { };
  959.         }
  960.     }
  961.  
  962. }
  963.  
  964. sub start_prefix_mapping {
  965.     my $self = shift;
  966.     if (defined $self->{Methods}->{'start_prefix_mapping'}) {
  967.         $self->{Methods}->{'start_prefix_mapping'}->(@_);
  968.     }
  969.     else {
  970.         my $method;
  971.         my $callbacks;
  972.         if (exists $self->{ParseOptions}) {
  973.             $callbacks = $self->{ParseOptions};
  974.         }
  975.         else {
  976.             $callbacks = $self;
  977.         }
  978.         if (0) { # dummy to make elsif's below compile
  979.         }
  980.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('start_prefix_mapping') ) {
  981.             my $handler = $callbacks->{'ContentHandler'};
  982.             $self->{Methods}->{'start_prefix_mapping'} = sub { $method->($handler, @_) };
  983.             return $method->($handler, @_);
  984.         }
  985.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('start_prefix_mapping') ) {
  986.             my $handler = $callbacks->{'Handler'};
  987.             $self->{Methods}->{'start_prefix_mapping'} = sub { $method->($handler, @_) };
  988.             return $method->($handler, @_);
  989.         }
  990.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  991.             my $res = eval { $callbacks->{'ContentHandler'}->start_prefix_mapping(@_) };
  992.             if ($@) {
  993.                 die $@;
  994.             }
  995.             else {
  996.                 # I think there's a buggette here...
  997.                 # if the first call throws an exception, we don't set it up right.
  998.                 # Not fatal, but we might want to address it.
  999.                 my $handler = $callbacks->{'ContentHandler'};
  1000.                 $self->{Methods}->{'start_prefix_mapping'} = sub { $handler->start_prefix_mapping(@_) };
  1001.             }
  1002.             return $res;
  1003.         }
  1004.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1005.             my $res = eval { $callbacks->{'Handler'}->start_prefix_mapping(@_) };
  1006.             if ($@) {
  1007.                 die $@;
  1008.             }
  1009.             else {
  1010.                 # I think there's a buggette here...
  1011.                 # if the first call throws an exception, we don't set it up right.
  1012.                 # Not fatal, but we might want to address it.
  1013.                 my $handler = $callbacks->{'Handler'};
  1014.                 $self->{Methods}->{'start_prefix_mapping'} = sub { $handler->start_prefix_mapping(@_) };
  1015.             }
  1016.             return $res;
  1017.         }
  1018.         else {
  1019.             $self->{Methods}->{'start_prefix_mapping'} = sub { };
  1020.         }
  1021.     }
  1022.  
  1023. }
  1024.  
  1025. sub error {
  1026.     my $self = shift;
  1027.     if (defined $self->{Methods}->{'error'}) {
  1028.         $self->{Methods}->{'error'}->(@_);
  1029.     }
  1030.     else {
  1031.         my $method;
  1032.         my $callbacks;
  1033.         if (exists $self->{ParseOptions}) {
  1034.             $callbacks = $self->{ParseOptions};
  1035.         }
  1036.         else {
  1037.             $callbacks = $self;
  1038.         }
  1039.         if (0) { # dummy to make elsif's below compile
  1040.         }
  1041.         elsif (defined $callbacks->{'ErrorHandler'} and $method = $callbacks->{'ErrorHandler'}->can('error') ) {
  1042.             my $handler = $callbacks->{'ErrorHandler'};
  1043.             $self->{Methods}->{'error'} = sub { $method->($handler, @_) };
  1044.             return $method->($handler, @_);
  1045.         }
  1046.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('error') ) {
  1047.             my $handler = $callbacks->{'Handler'};
  1048.             $self->{Methods}->{'error'} = sub { $method->($handler, @_) };
  1049.             return $method->($handler, @_);
  1050.         }
  1051.         elsif (defined $callbacks->{'ErrorHandler'} and $callbacks->{'ErrorHandler'}->can('AUTOLOAD') ) {
  1052.             my $res = eval { $callbacks->{'ErrorHandler'}->error(@_) };
  1053.             if ($@) {
  1054.                 die $@;
  1055.             }
  1056.             else {
  1057.                 # I think there's a buggette here...
  1058.                 # if the first call throws an exception, we don't set it up right.
  1059.                 # Not fatal, but we might want to address it.
  1060.                 my $handler = $callbacks->{'ErrorHandler'};
  1061.                 $self->{Methods}->{'error'} = sub { $handler->error(@_) };
  1062.             }
  1063.             return $res;
  1064.         }
  1065.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1066.             my $res = eval { $callbacks->{'Handler'}->error(@_) };
  1067.             if ($@) {
  1068.                 die $@;
  1069.             }
  1070.             else {
  1071.                 # I think there's a buggette here...
  1072.                 # if the first call throws an exception, we don't set it up right.
  1073.                 # Not fatal, but we might want to address it.
  1074.                 my $handler = $callbacks->{'Handler'};
  1075.                 $self->{Methods}->{'error'} = sub { $handler->error(@_) };
  1076.             }
  1077.             return $res;
  1078.         }
  1079.         else {
  1080.             $self->{Methods}->{'error'} = sub { };
  1081.         }
  1082.     }
  1083.  
  1084. }
  1085.  
  1086. sub start_document {
  1087.     my $self = shift;
  1088.     if (defined $self->{Methods}->{'start_document'}) {
  1089.         $self->{Methods}->{'start_document'}->(@_);
  1090.     }
  1091.     else {
  1092.         my $method;
  1093.         my $callbacks;
  1094.         if (exists $self->{ParseOptions}) {
  1095.             $callbacks = $self->{ParseOptions};
  1096.         }
  1097.         else {
  1098.             $callbacks = $self;
  1099.         }
  1100.         if (0) { # dummy to make elsif's below compile
  1101.         }
  1102.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('start_document') ) {
  1103.             my $handler = $callbacks->{'ContentHandler'};
  1104.             $self->{Methods}->{'start_document'} = sub { $method->($handler, @_) };
  1105.             return $method->($handler, @_);
  1106.         }
  1107.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('start_document') ) {
  1108.             my $handler = $callbacks->{'DocumentHandler'};
  1109.             $self->{Methods}->{'start_document'} = sub { $method->($handler, @_) };
  1110.             return $method->($handler, @_);
  1111.         }
  1112.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('start_document') ) {
  1113.             my $handler = $callbacks->{'Handler'};
  1114.             $self->{Methods}->{'start_document'} = sub { $method->($handler, @_) };
  1115.             return $method->($handler, @_);
  1116.         }
  1117.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  1118.             my $res = eval { $callbacks->{'ContentHandler'}->start_document(@_) };
  1119.             if ($@) {
  1120.                 die $@;
  1121.             }
  1122.             else {
  1123.                 # I think there's a buggette here...
  1124.                 # if the first call throws an exception, we don't set it up right.
  1125.                 # Not fatal, but we might want to address it.
  1126.                 my $handler = $callbacks->{'ContentHandler'};
  1127.                 $self->{Methods}->{'start_document'} = sub { $handler->start_document(@_) };
  1128.             }
  1129.             return $res;
  1130.         }
  1131.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  1132.             my $res = eval { $callbacks->{'DocumentHandler'}->start_document(@_) };
  1133.             if ($@) {
  1134.                 die $@;
  1135.             }
  1136.             else {
  1137.                 # I think there's a buggette here...
  1138.                 # if the first call throws an exception, we don't set it up right.
  1139.                 # Not fatal, but we might want to address it.
  1140.                 my $handler = $callbacks->{'DocumentHandler'};
  1141.                 $self->{Methods}->{'start_document'} = sub { $handler->start_document(@_) };
  1142.             }
  1143.             return $res;
  1144.         }
  1145.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1146.             my $res = eval { $callbacks->{'Handler'}->start_document(@_) };
  1147.             if ($@) {
  1148.                 die $@;
  1149.             }
  1150.             else {
  1151.                 # I think there's a buggette here...
  1152.                 # if the first call throws an exception, we don't set it up right.
  1153.                 # Not fatal, but we might want to address it.
  1154.                 my $handler = $callbacks->{'Handler'};
  1155.                 $self->{Methods}->{'start_document'} = sub { $handler->start_document(@_) };
  1156.             }
  1157.             return $res;
  1158.         }
  1159.         else {
  1160.             $self->{Methods}->{'start_document'} = sub { };
  1161.         }
  1162.     }
  1163.  
  1164. }
  1165.  
  1166. sub ignorable_whitespace {
  1167.     my $self = shift;
  1168.     if (defined $self->{Methods}->{'ignorable_whitespace'}) {
  1169.         $self->{Methods}->{'ignorable_whitespace'}->(@_);
  1170.     }
  1171.     else {
  1172.         my $method;
  1173.         my $callbacks;
  1174.         if (exists $self->{ParseOptions}) {
  1175.             $callbacks = $self->{ParseOptions};
  1176.         }
  1177.         else {
  1178.             $callbacks = $self;
  1179.         }
  1180.         if (0) { # dummy to make elsif's below compile
  1181.         }
  1182.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('ignorable_whitespace') ) {
  1183.             my $handler = $callbacks->{'ContentHandler'};
  1184.             $self->{Methods}->{'ignorable_whitespace'} = sub { $method->($handler, @_) };
  1185.             return $method->($handler, @_);
  1186.         }
  1187.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('ignorable_whitespace') ) {
  1188.             my $handler = $callbacks->{'DocumentHandler'};
  1189.             $self->{Methods}->{'ignorable_whitespace'} = sub { $method->($handler, @_) };
  1190.             return $method->($handler, @_);
  1191.         }
  1192.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('ignorable_whitespace') ) {
  1193.             my $handler = $callbacks->{'Handler'};
  1194.             $self->{Methods}->{'ignorable_whitespace'} = sub { $method->($handler, @_) };
  1195.             return $method->($handler, @_);
  1196.         }
  1197.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  1198.             my $res = eval { $callbacks->{'ContentHandler'}->ignorable_whitespace(@_) };
  1199.             if ($@) {
  1200.                 die $@;
  1201.             }
  1202.             else {
  1203.                 # I think there's a buggette here...
  1204.                 # if the first call throws an exception, we don't set it up right.
  1205.                 # Not fatal, but we might want to address it.
  1206.                 my $handler = $callbacks->{'ContentHandler'};
  1207.                 $self->{Methods}->{'ignorable_whitespace'} = sub { $handler->ignorable_whitespace(@_) };
  1208.             }
  1209.             return $res;
  1210.         }
  1211.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  1212.             my $res = eval { $callbacks->{'DocumentHandler'}->ignorable_whitespace(@_) };
  1213.             if ($@) {
  1214.                 die $@;
  1215.             }
  1216.             else {
  1217.                 # I think there's a buggette here...
  1218.                 # if the first call throws an exception, we don't set it up right.
  1219.                 # Not fatal, but we might want to address it.
  1220.                 my $handler = $callbacks->{'DocumentHandler'};
  1221.                 $self->{Methods}->{'ignorable_whitespace'} = sub { $handler->ignorable_whitespace(@_) };
  1222.             }
  1223.             return $res;
  1224.         }
  1225.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1226.             my $res = eval { $callbacks->{'Handler'}->ignorable_whitespace(@_) };
  1227.             if ($@) {
  1228.                 die $@;
  1229.             }
  1230.             else {
  1231.                 # I think there's a buggette here...
  1232.                 # if the first call throws an exception, we don't set it up right.
  1233.                 # Not fatal, but we might want to address it.
  1234.                 my $handler = $callbacks->{'Handler'};
  1235.                 $self->{Methods}->{'ignorable_whitespace'} = sub { $handler->ignorable_whitespace(@_) };
  1236.             }
  1237.             return $res;
  1238.         }
  1239.         else {
  1240.             $self->{Methods}->{'ignorable_whitespace'} = sub { };
  1241.         }
  1242.     }
  1243.  
  1244. }
  1245.  
  1246. sub end_document {
  1247.     my $self = shift;
  1248.     if (defined $self->{Methods}->{'end_document'}) {
  1249.         $self->{Methods}->{'end_document'}->(@_);
  1250.     }
  1251.     else {
  1252.         my $method;
  1253.         my $callbacks;
  1254.         if (exists $self->{ParseOptions}) {
  1255.             $callbacks = $self->{ParseOptions};
  1256.         }
  1257.         else {
  1258.             $callbacks = $self;
  1259.         }
  1260.         if (0) { # dummy to make elsif's below compile
  1261.         }
  1262.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('end_document') ) {
  1263.             my $handler = $callbacks->{'ContentHandler'};
  1264.             $self->{Methods}->{'end_document'} = sub { $method->($handler, @_) };
  1265.             return $method->($handler, @_);
  1266.         }
  1267.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('end_document') ) {
  1268.             my $handler = $callbacks->{'DocumentHandler'};
  1269.             $self->{Methods}->{'end_document'} = sub { $method->($handler, @_) };
  1270.             return $method->($handler, @_);
  1271.         }
  1272.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('end_document') ) {
  1273.             my $handler = $callbacks->{'Handler'};
  1274.             $self->{Methods}->{'end_document'} = sub { $method->($handler, @_) };
  1275.             return $method->($handler, @_);
  1276.         }
  1277.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  1278.             my $res = eval { $callbacks->{'ContentHandler'}->end_document(@_) };
  1279.             if ($@) {
  1280.                 die $@;
  1281.             }
  1282.             else {
  1283.                 # I think there's a buggette here...
  1284.                 # if the first call throws an exception, we don't set it up right.
  1285.                 # Not fatal, but we might want to address it.
  1286.                 my $handler = $callbacks->{'ContentHandler'};
  1287.                 $self->{Methods}->{'end_document'} = sub { $handler->end_document(@_) };
  1288.             }
  1289.             return $res;
  1290.         }
  1291.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  1292.             my $res = eval { $callbacks->{'DocumentHandler'}->end_document(@_) };
  1293.             if ($@) {
  1294.                 die $@;
  1295.             }
  1296.             else {
  1297.                 # I think there's a buggette here...
  1298.                 # if the first call throws an exception, we don't set it up right.
  1299.                 # Not fatal, but we might want to address it.
  1300.                 my $handler = $callbacks->{'DocumentHandler'};
  1301.                 $self->{Methods}->{'end_document'} = sub { $handler->end_document(@_) };
  1302.             }
  1303.             return $res;
  1304.         }
  1305.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1306.             my $res = eval { $callbacks->{'Handler'}->end_document(@_) };
  1307.             if ($@) {
  1308.                 die $@;
  1309.             }
  1310.             else {
  1311.                 # I think there's a buggette here...
  1312.                 # if the first call throws an exception, we don't set it up right.
  1313.                 # Not fatal, but we might want to address it.
  1314.                 my $handler = $callbacks->{'Handler'};
  1315.                 $self->{Methods}->{'end_document'} = sub { $handler->end_document(@_) };
  1316.             }
  1317.             return $res;
  1318.         }
  1319.         else {
  1320.             $self->{Methods}->{'end_document'} = sub { };
  1321.         }
  1322.     }
  1323.  
  1324. }
  1325.  
  1326. sub start_cdata {
  1327.     my $self = shift;
  1328.     if (defined $self->{Methods}->{'start_cdata'}) {
  1329.         $self->{Methods}->{'start_cdata'}->(@_);
  1330.     }
  1331.     else {
  1332.         my $method;
  1333.         my $callbacks;
  1334.         if (exists $self->{ParseOptions}) {
  1335.             $callbacks = $self->{ParseOptions};
  1336.         }
  1337.         else {
  1338.             $callbacks = $self;
  1339.         }
  1340.         if (0) { # dummy to make elsif's below compile
  1341.         }
  1342.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('start_cdata') ) {
  1343.             my $handler = $callbacks->{'DocumentHandler'};
  1344.             $self->{Methods}->{'start_cdata'} = sub { $method->($handler, @_) };
  1345.             return $method->($handler, @_);
  1346.         }
  1347.         elsif (defined $callbacks->{'LexicalHandler'} and $method = $callbacks->{'LexicalHandler'}->can('start_cdata') ) {
  1348.             my $handler = $callbacks->{'LexicalHandler'};
  1349.             $self->{Methods}->{'start_cdata'} = sub { $method->($handler, @_) };
  1350.             return $method->($handler, @_);
  1351.         }
  1352.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('start_cdata') ) {
  1353.             my $handler = $callbacks->{'Handler'};
  1354.             $self->{Methods}->{'start_cdata'} = sub { $method->($handler, @_) };
  1355.             return $method->($handler, @_);
  1356.         }
  1357.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  1358.             my $res = eval { $callbacks->{'DocumentHandler'}->start_cdata(@_) };
  1359.             if ($@) {
  1360.                 die $@;
  1361.             }
  1362.             else {
  1363.                 # I think there's a buggette here...
  1364.                 # if the first call throws an exception, we don't set it up right.
  1365.                 # Not fatal, but we might want to address it.
  1366.                 my $handler = $callbacks->{'DocumentHandler'};
  1367.                 $self->{Methods}->{'start_cdata'} = sub { $handler->start_cdata(@_) };
  1368.             }
  1369.             return $res;
  1370.         }
  1371.         elsif (defined $callbacks->{'LexicalHandler'} and $callbacks->{'LexicalHandler'}->can('AUTOLOAD') ) {
  1372.             my $res = eval { $callbacks->{'LexicalHandler'}->start_cdata(@_) };
  1373.             if ($@) {
  1374.                 die $@;
  1375.             }
  1376.             else {
  1377.                 # I think there's a buggette here...
  1378.                 # if the first call throws an exception, we don't set it up right.
  1379.                 # Not fatal, but we might want to address it.
  1380.                 my $handler = $callbacks->{'LexicalHandler'};
  1381.                 $self->{Methods}->{'start_cdata'} = sub { $handler->start_cdata(@_) };
  1382.             }
  1383.             return $res;
  1384.         }
  1385.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1386.             my $res = eval { $callbacks->{'Handler'}->start_cdata(@_) };
  1387.             if ($@) {
  1388.                 die $@;
  1389.             }
  1390.             else {
  1391.                 # I think there's a buggette here...
  1392.                 # if the first call throws an exception, we don't set it up right.
  1393.                 # Not fatal, but we might want to address it.
  1394.                 my $handler = $callbacks->{'Handler'};
  1395.                 $self->{Methods}->{'start_cdata'} = sub { $handler->start_cdata(@_) };
  1396.             }
  1397.             return $res;
  1398.         }
  1399.         else {
  1400.             $self->{Methods}->{'start_cdata'} = sub { };
  1401.         }
  1402.     }
  1403.  
  1404. }
  1405.  
  1406. sub set_document_locator {
  1407.     my $self = shift;
  1408.     if (defined $self->{Methods}->{'set_document_locator'}) {
  1409.         $self->{Methods}->{'set_document_locator'}->(@_);
  1410.     }
  1411.     else {
  1412.         my $method;
  1413.         my $callbacks;
  1414.         if (exists $self->{ParseOptions}) {
  1415.             $callbacks = $self->{ParseOptions};
  1416.         }
  1417.         else {
  1418.             $callbacks = $self;
  1419.         }
  1420.         if (0) { # dummy to make elsif's below compile
  1421.         }
  1422.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('set_document_locator') ) {
  1423.             my $handler = $callbacks->{'ContentHandler'};
  1424.             $self->{Methods}->{'set_document_locator'} = sub { $method->($handler, @_) };
  1425.             return $method->($handler, @_);
  1426.         }
  1427.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('set_document_locator') ) {
  1428.             my $handler = $callbacks->{'DocumentHandler'};
  1429.             $self->{Methods}->{'set_document_locator'} = sub { $method->($handler, @_) };
  1430.             return $method->($handler, @_);
  1431.         }
  1432.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('set_document_locator') ) {
  1433.             my $handler = $callbacks->{'Handler'};
  1434.             $self->{Methods}->{'set_document_locator'} = sub { $method->($handler, @_) };
  1435.             return $method->($handler, @_);
  1436.         }
  1437.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  1438.             my $res = eval { $callbacks->{'ContentHandler'}->set_document_locator(@_) };
  1439.             if ($@) {
  1440.                 die $@;
  1441.             }
  1442.             else {
  1443.                 # I think there's a buggette here...
  1444.                 # if the first call throws an exception, we don't set it up right.
  1445.                 # Not fatal, but we might want to address it.
  1446.                 my $handler = $callbacks->{'ContentHandler'};
  1447.                 $self->{Methods}->{'set_document_locator'} = sub { $handler->set_document_locator(@_) };
  1448.             }
  1449.             return $res;
  1450.         }
  1451.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  1452.             my $res = eval { $callbacks->{'DocumentHandler'}->set_document_locator(@_) };
  1453.             if ($@) {
  1454.                 die $@;
  1455.             }
  1456.             else {
  1457.                 # I think there's a buggette here...
  1458.                 # if the first call throws an exception, we don't set it up right.
  1459.                 # Not fatal, but we might want to address it.
  1460.                 my $handler = $callbacks->{'DocumentHandler'};
  1461.                 $self->{Methods}->{'set_document_locator'} = sub { $handler->set_document_locator(@_) };
  1462.             }
  1463.             return $res;
  1464.         }
  1465.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1466.             my $res = eval { $callbacks->{'Handler'}->set_document_locator(@_) };
  1467.             if ($@) {
  1468.                 die $@;
  1469.             }
  1470.             else {
  1471.                 # I think there's a buggette here...
  1472.                 # if the first call throws an exception, we don't set it up right.
  1473.                 # Not fatal, but we might want to address it.
  1474.                 my $handler = $callbacks->{'Handler'};
  1475.                 $self->{Methods}->{'set_document_locator'} = sub { $handler->set_document_locator(@_) };
  1476.             }
  1477.             return $res;
  1478.         }
  1479.         else {
  1480.             $self->{Methods}->{'set_document_locator'} = sub { };
  1481.         }
  1482.     }
  1483.  
  1484. }
  1485.  
  1486. sub attlist_decl {
  1487.     my $self = shift;
  1488.     if (defined $self->{Methods}->{'attlist_decl'}) {
  1489.         $self->{Methods}->{'attlist_decl'}->(@_);
  1490.     }
  1491.     else {
  1492.         my $method;
  1493.         my $callbacks;
  1494.         if (exists $self->{ParseOptions}) {
  1495.             $callbacks = $self->{ParseOptions};
  1496.         }
  1497.         else {
  1498.             $callbacks = $self;
  1499.         }
  1500.         if (0) { # dummy to make elsif's below compile
  1501.         }
  1502.         elsif (defined $callbacks->{'DTDHandler'} and $method = $callbacks->{'DTDHandler'}->can('attlist_decl') ) {
  1503.             my $handler = $callbacks->{'DTDHandler'};
  1504.             $self->{Methods}->{'attlist_decl'} = sub { $method->($handler, @_) };
  1505.             return $method->($handler, @_);
  1506.         }
  1507.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('attlist_decl') ) {
  1508.             my $handler = $callbacks->{'Handler'};
  1509.             $self->{Methods}->{'attlist_decl'} = sub { $method->($handler, @_) };
  1510.             return $method->($handler, @_);
  1511.         }
  1512.         elsif (defined $callbacks->{'DTDHandler'} and $callbacks->{'DTDHandler'}->can('AUTOLOAD') ) {
  1513.             my $res = eval { $callbacks->{'DTDHandler'}->attlist_decl(@_) };
  1514.             if ($@) {
  1515.                 die $@;
  1516.             }
  1517.             else {
  1518.                 # I think there's a buggette here...
  1519.                 # if the first call throws an exception, we don't set it up right.
  1520.                 # Not fatal, but we might want to address it.
  1521.                 my $handler = $callbacks->{'DTDHandler'};
  1522.                 $self->{Methods}->{'attlist_decl'} = sub { $handler->attlist_decl(@_) };
  1523.             }
  1524.             return $res;
  1525.         }
  1526.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1527.             my $res = eval { $callbacks->{'Handler'}->attlist_decl(@_) };
  1528.             if ($@) {
  1529.                 die $@;
  1530.             }
  1531.             else {
  1532.                 # I think there's a buggette here...
  1533.                 # if the first call throws an exception, we don't set it up right.
  1534.                 # Not fatal, but we might want to address it.
  1535.                 my $handler = $callbacks->{'Handler'};
  1536.                 $self->{Methods}->{'attlist_decl'} = sub { $handler->attlist_decl(@_) };
  1537.             }
  1538.             return $res;
  1539.         }
  1540.         else {
  1541.             $self->{Methods}->{'attlist_decl'} = sub { };
  1542.         }
  1543.     }
  1544.  
  1545. }
  1546.  
  1547. sub start_dtd {
  1548.     my $self = shift;
  1549.     if (defined $self->{Methods}->{'start_dtd'}) {
  1550.         $self->{Methods}->{'start_dtd'}->(@_);
  1551.     }
  1552.     else {
  1553.         my $method;
  1554.         my $callbacks;
  1555.         if (exists $self->{ParseOptions}) {
  1556.             $callbacks = $self->{ParseOptions};
  1557.         }
  1558.         else {
  1559.             $callbacks = $self;
  1560.         }
  1561.         if (0) { # dummy to make elsif's below compile
  1562.         }
  1563.         elsif (defined $callbacks->{'LexicalHandler'} and $method = $callbacks->{'LexicalHandler'}->can('start_dtd') ) {
  1564.             my $handler = $callbacks->{'LexicalHandler'};
  1565.             $self->{Methods}->{'start_dtd'} = sub { $method->($handler, @_) };
  1566.             return $method->($handler, @_);
  1567.         }
  1568.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('start_dtd') ) {
  1569.             my $handler = $callbacks->{'Handler'};
  1570.             $self->{Methods}->{'start_dtd'} = sub { $method->($handler, @_) };
  1571.             return $method->($handler, @_);
  1572.         }
  1573.         elsif (defined $callbacks->{'LexicalHandler'} and $callbacks->{'LexicalHandler'}->can('AUTOLOAD') ) {
  1574.             my $res = eval { $callbacks->{'LexicalHandler'}->start_dtd(@_) };
  1575.             if ($@) {
  1576.                 die $@;
  1577.             }
  1578.             else {
  1579.                 # I think there's a buggette here...
  1580.                 # if the first call throws an exception, we don't set it up right.
  1581.                 # Not fatal, but we might want to address it.
  1582.                 my $handler = $callbacks->{'LexicalHandler'};
  1583.                 $self->{Methods}->{'start_dtd'} = sub { $handler->start_dtd(@_) };
  1584.             }
  1585.             return $res;
  1586.         }
  1587.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1588.             my $res = eval { $callbacks->{'Handler'}->start_dtd(@_) };
  1589.             if ($@) {
  1590.                 die $@;
  1591.             }
  1592.             else {
  1593.                 # I think there's a buggette here...
  1594.                 # if the first call throws an exception, we don't set it up right.
  1595.                 # Not fatal, but we might want to address it.
  1596.                 my $handler = $callbacks->{'Handler'};
  1597.                 $self->{Methods}->{'start_dtd'} = sub { $handler->start_dtd(@_) };
  1598.             }
  1599.             return $res;
  1600.         }
  1601.         else {
  1602.             $self->{Methods}->{'start_dtd'} = sub { };
  1603.         }
  1604.     }
  1605.  
  1606. }
  1607.  
  1608. sub resolve_entity {
  1609.     my $self = shift;
  1610.     if (defined $self->{Methods}->{'resolve_entity'}) {
  1611.         $self->{Methods}->{'resolve_entity'}->(@_);
  1612.     }
  1613.     else {
  1614.         my $method;
  1615.         my $callbacks;
  1616.         if (exists $self->{ParseOptions}) {
  1617.             $callbacks = $self->{ParseOptions};
  1618.         }
  1619.         else {
  1620.             $callbacks = $self;
  1621.         }
  1622.         if (0) { # dummy to make elsif's below compile
  1623.         }
  1624.         elsif (defined $callbacks->{'EntityResolver'} and $method = $callbacks->{'EntityResolver'}->can('resolve_entity') ) {
  1625.             my $handler = $callbacks->{'EntityResolver'};
  1626.             $self->{Methods}->{'resolve_entity'} = sub { $method->($handler, @_) };
  1627.             return $method->($handler, @_);
  1628.         }
  1629.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('resolve_entity') ) {
  1630.             my $handler = $callbacks->{'Handler'};
  1631.             $self->{Methods}->{'resolve_entity'} = sub { $method->($handler, @_) };
  1632.             return $method->($handler, @_);
  1633.         }
  1634.         elsif (defined $callbacks->{'EntityResolver'} and $callbacks->{'EntityResolver'}->can('AUTOLOAD') ) {
  1635.             my $res = eval { $callbacks->{'EntityResolver'}->resolve_entity(@_) };
  1636.             if ($@) {
  1637.                 die $@;
  1638.             }
  1639.             else {
  1640.                 # I think there's a buggette here...
  1641.                 # if the first call throws an exception, we don't set it up right.
  1642.                 # Not fatal, but we might want to address it.
  1643.                 my $handler = $callbacks->{'EntityResolver'};
  1644.                 $self->{Methods}->{'resolve_entity'} = sub { $handler->resolve_entity(@_) };
  1645.             }
  1646.             return $res;
  1647.         }
  1648.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1649.             my $res = eval { $callbacks->{'Handler'}->resolve_entity(@_) };
  1650.             if ($@) {
  1651.                 die $@;
  1652.             }
  1653.             else {
  1654.                 # I think there's a buggette here...
  1655.                 # if the first call throws an exception, we don't set it up right.
  1656.                 # Not fatal, but we might want to address it.
  1657.                 my $handler = $callbacks->{'Handler'};
  1658.                 $self->{Methods}->{'resolve_entity'} = sub { $handler->resolve_entity(@_) };
  1659.             }
  1660.             return $res;
  1661.         }
  1662.         else {
  1663.             $self->{Methods}->{'resolve_entity'} = sub { };
  1664.         }
  1665.     }
  1666.  
  1667. }
  1668.  
  1669. sub entity_reference {
  1670.     my $self = shift;
  1671.     if (defined $self->{Methods}->{'entity_reference'}) {
  1672.         $self->{Methods}->{'entity_reference'}->(@_);
  1673.     }
  1674.     else {
  1675.         my $method;
  1676.         my $callbacks;
  1677.         if (exists $self->{ParseOptions}) {
  1678.             $callbacks = $self->{ParseOptions};
  1679.         }
  1680.         else {
  1681.             $callbacks = $self;
  1682.         }
  1683.         if (0) { # dummy to make elsif's below compile
  1684.         }
  1685.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('entity_reference') ) {
  1686.             my $handler = $callbacks->{'DocumentHandler'};
  1687.             $self->{Methods}->{'entity_reference'} = sub { $method->($handler, @_) };
  1688.             return $method->($handler, @_);
  1689.         }
  1690.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('entity_reference') ) {
  1691.             my $handler = $callbacks->{'Handler'};
  1692.             $self->{Methods}->{'entity_reference'} = sub { $method->($handler, @_) };
  1693.             return $method->($handler, @_);
  1694.         }
  1695.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  1696.             my $res = eval { $callbacks->{'DocumentHandler'}->entity_reference(@_) };
  1697.             if ($@) {
  1698.                 die $@;
  1699.             }
  1700.             else {
  1701.                 # I think there's a buggette here...
  1702.                 # if the first call throws an exception, we don't set it up right.
  1703.                 # Not fatal, but we might want to address it.
  1704.                 my $handler = $callbacks->{'DocumentHandler'};
  1705.                 $self->{Methods}->{'entity_reference'} = sub { $handler->entity_reference(@_) };
  1706.             }
  1707.             return $res;
  1708.         }
  1709.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1710.             my $res = eval { $callbacks->{'Handler'}->entity_reference(@_) };
  1711.             if ($@) {
  1712.                 die $@;
  1713.             }
  1714.             else {
  1715.                 # I think there's a buggette here...
  1716.                 # if the first call throws an exception, we don't set it up right.
  1717.                 # Not fatal, but we might want to address it.
  1718.                 my $handler = $callbacks->{'Handler'};
  1719.                 $self->{Methods}->{'entity_reference'} = sub { $handler->entity_reference(@_) };
  1720.             }
  1721.             return $res;
  1722.         }
  1723.         else {
  1724.             $self->{Methods}->{'entity_reference'} = sub { };
  1725.         }
  1726.     }
  1727.  
  1728. }
  1729.  
  1730. sub element_decl {
  1731.     my $self = shift;
  1732.     if (defined $self->{Methods}->{'element_decl'}) {
  1733.         $self->{Methods}->{'element_decl'}->(@_);
  1734.     }
  1735.     else {
  1736.         my $method;
  1737.         my $callbacks;
  1738.         if (exists $self->{ParseOptions}) {
  1739.             $callbacks = $self->{ParseOptions};
  1740.         }
  1741.         else {
  1742.             $callbacks = $self;
  1743.         }
  1744.         if (0) { # dummy to make elsif's below compile
  1745.         }
  1746.         elsif (defined $callbacks->{'DeclHandler'} and $method = $callbacks->{'DeclHandler'}->can('element_decl') ) {
  1747.             my $handler = $callbacks->{'DeclHandler'};
  1748.             $self->{Methods}->{'element_decl'} = sub { $method->($handler, @_) };
  1749.             return $method->($handler, @_);
  1750.         }
  1751.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('element_decl') ) {
  1752.             my $handler = $callbacks->{'Handler'};
  1753.             $self->{Methods}->{'element_decl'} = sub { $method->($handler, @_) };
  1754.             return $method->($handler, @_);
  1755.         }
  1756.         elsif (defined $callbacks->{'DeclHandler'} and $callbacks->{'DeclHandler'}->can('AUTOLOAD') ) {
  1757.             my $res = eval { $callbacks->{'DeclHandler'}->element_decl(@_) };
  1758.             if ($@) {
  1759.                 die $@;
  1760.             }
  1761.             else {
  1762.                 # I think there's a buggette here...
  1763.                 # if the first call throws an exception, we don't set it up right.
  1764.                 # Not fatal, but we might want to address it.
  1765.                 my $handler = $callbacks->{'DeclHandler'};
  1766.                 $self->{Methods}->{'element_decl'} = sub { $handler->element_decl(@_) };
  1767.             }
  1768.             return $res;
  1769.         }
  1770.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1771.             my $res = eval { $callbacks->{'Handler'}->element_decl(@_) };
  1772.             if ($@) {
  1773.                 die $@;
  1774.             }
  1775.             else {
  1776.                 # I think there's a buggette here...
  1777.                 # if the first call throws an exception, we don't set it up right.
  1778.                 # Not fatal, but we might want to address it.
  1779.                 my $handler = $callbacks->{'Handler'};
  1780.                 $self->{Methods}->{'element_decl'} = sub { $handler->element_decl(@_) };
  1781.             }
  1782.             return $res;
  1783.         }
  1784.         else {
  1785.             $self->{Methods}->{'element_decl'} = sub { };
  1786.         }
  1787.     }
  1788.  
  1789. }
  1790.  
  1791. sub notation_decl {
  1792.     my $self = shift;
  1793.     if (defined $self->{Methods}->{'notation_decl'}) {
  1794.         $self->{Methods}->{'notation_decl'}->(@_);
  1795.     }
  1796.     else {
  1797.         my $method;
  1798.         my $callbacks;
  1799.         if (exists $self->{ParseOptions}) {
  1800.             $callbacks = $self->{ParseOptions};
  1801.         }
  1802.         else {
  1803.             $callbacks = $self;
  1804.         }
  1805.         if (0) { # dummy to make elsif's below compile
  1806.         }
  1807.         elsif (defined $callbacks->{'DTDHandler'} and $method = $callbacks->{'DTDHandler'}->can('notation_decl') ) {
  1808.             my $handler = $callbacks->{'DTDHandler'};
  1809.             $self->{Methods}->{'notation_decl'} = sub { $method->($handler, @_) };
  1810.             return $method->($handler, @_);
  1811.         }
  1812.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('notation_decl') ) {
  1813.             my $handler = $callbacks->{'Handler'};
  1814.             $self->{Methods}->{'notation_decl'} = sub { $method->($handler, @_) };
  1815.             return $method->($handler, @_);
  1816.         }
  1817.         elsif (defined $callbacks->{'DTDHandler'} and $callbacks->{'DTDHandler'}->can('AUTOLOAD') ) {
  1818.             my $res = eval { $callbacks->{'DTDHandler'}->notation_decl(@_) };
  1819.             if ($@) {
  1820.                 die $@;
  1821.             }
  1822.             else {
  1823.                 # I think there's a buggette here...
  1824.                 # if the first call throws an exception, we don't set it up right.
  1825.                 # Not fatal, but we might want to address it.
  1826.                 my $handler = $callbacks->{'DTDHandler'};
  1827.                 $self->{Methods}->{'notation_decl'} = sub { $handler->notation_decl(@_) };
  1828.             }
  1829.             return $res;
  1830.         }
  1831.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1832.             my $res = eval { $callbacks->{'Handler'}->notation_decl(@_) };
  1833.             if ($@) {
  1834.                 die $@;
  1835.             }
  1836.             else {
  1837.                 # I think there's a buggette here...
  1838.                 # if the first call throws an exception, we don't set it up right.
  1839.                 # Not fatal, but we might want to address it.
  1840.                 my $handler = $callbacks->{'Handler'};
  1841.                 $self->{Methods}->{'notation_decl'} = sub { $handler->notation_decl(@_) };
  1842.             }
  1843.             return $res;
  1844.         }
  1845.         else {
  1846.             $self->{Methods}->{'notation_decl'} = sub { };
  1847.         }
  1848.     }
  1849.  
  1850. }
  1851.  
  1852. sub skipped_entity {
  1853.     my $self = shift;
  1854.     if (defined $self->{Methods}->{'skipped_entity'}) {
  1855.         $self->{Methods}->{'skipped_entity'}->(@_);
  1856.     }
  1857.     else {
  1858.         my $method;
  1859.         my $callbacks;
  1860.         if (exists $self->{ParseOptions}) {
  1861.             $callbacks = $self->{ParseOptions};
  1862.         }
  1863.         else {
  1864.             $callbacks = $self;
  1865.         }
  1866.         if (0) { # dummy to make elsif's below compile
  1867.         }
  1868.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('skipped_entity') ) {
  1869.             my $handler = $callbacks->{'ContentHandler'};
  1870.             $self->{Methods}->{'skipped_entity'} = sub { $method->($handler, @_) };
  1871.             return $method->($handler, @_);
  1872.         }
  1873.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('skipped_entity') ) {
  1874.             my $handler = $callbacks->{'Handler'};
  1875.             $self->{Methods}->{'skipped_entity'} = sub { $method->($handler, @_) };
  1876.             return $method->($handler, @_);
  1877.         }
  1878.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  1879.             my $res = eval { $callbacks->{'ContentHandler'}->skipped_entity(@_) };
  1880.             if ($@) {
  1881.                 die $@;
  1882.             }
  1883.             else {
  1884.                 # I think there's a buggette here...
  1885.                 # if the first call throws an exception, we don't set it up right.
  1886.                 # Not fatal, but we might want to address it.
  1887.                 my $handler = $callbacks->{'ContentHandler'};
  1888.                 $self->{Methods}->{'skipped_entity'} = sub { $handler->skipped_entity(@_) };
  1889.             }
  1890.             return $res;
  1891.         }
  1892.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1893.             my $res = eval { $callbacks->{'Handler'}->skipped_entity(@_) };
  1894.             if ($@) {
  1895.                 die $@;
  1896.             }
  1897.             else {
  1898.                 # I think there's a buggette here...
  1899.                 # if the first call throws an exception, we don't set it up right.
  1900.                 # Not fatal, but we might want to address it.
  1901.                 my $handler = $callbacks->{'Handler'};
  1902.                 $self->{Methods}->{'skipped_entity'} = sub { $handler->skipped_entity(@_) };
  1903.             }
  1904.             return $res;
  1905.         }
  1906.         else {
  1907.             $self->{Methods}->{'skipped_entity'} = sub { };
  1908.         }
  1909.     }
  1910.  
  1911. }
  1912.  
  1913. sub end_element {
  1914.     my $self = shift;
  1915.     if (defined $self->{Methods}->{'end_element'}) {
  1916.         $self->{Methods}->{'end_element'}->(@_);
  1917.     }
  1918.     else {
  1919.         my $method;
  1920.         my $callbacks;
  1921.         if (exists $self->{ParseOptions}) {
  1922.             $callbacks = $self->{ParseOptions};
  1923.         }
  1924.         else {
  1925.             $callbacks = $self;
  1926.         }
  1927.         if (0) { # dummy to make elsif's below compile
  1928.         }
  1929.         elsif (defined $callbacks->{'ContentHandler'} and $method = $callbacks->{'ContentHandler'}->can('end_element') ) {
  1930.             my $handler = $callbacks->{'ContentHandler'};
  1931.             $self->{Methods}->{'end_element'} = sub { $method->($handler, @_) };
  1932.             return $method->($handler, @_);
  1933.         }
  1934.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('end_element') ) {
  1935.             my $handler = $callbacks->{'DocumentHandler'};
  1936.             $self->{Methods}->{'end_element'} = sub { $method->($handler, @_) };
  1937.             return $method->($handler, @_);
  1938.         }
  1939.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('end_element') ) {
  1940.             my $handler = $callbacks->{'Handler'};
  1941.             $self->{Methods}->{'end_element'} = sub { $method->($handler, @_) };
  1942.             return $method->($handler, @_);
  1943.         }
  1944.         elsif (defined $callbacks->{'ContentHandler'} and $callbacks->{'ContentHandler'}->can('AUTOLOAD') ) {
  1945.             my $res = eval { $callbacks->{'ContentHandler'}->end_element(@_) };
  1946.             if ($@) {
  1947.                 die $@;
  1948.             }
  1949.             else {
  1950.                 # I think there's a buggette here...
  1951.                 # if the first call throws an exception, we don't set it up right.
  1952.                 # Not fatal, but we might want to address it.
  1953.                 my $handler = $callbacks->{'ContentHandler'};
  1954.                 $self->{Methods}->{'end_element'} = sub { $handler->end_element(@_) };
  1955.             }
  1956.             return $res;
  1957.         }
  1958.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  1959.             my $res = eval { $callbacks->{'DocumentHandler'}->end_element(@_) };
  1960.             if ($@) {
  1961.                 die $@;
  1962.             }
  1963.             else {
  1964.                 # I think there's a buggette here...
  1965.                 # if the first call throws an exception, we don't set it up right.
  1966.                 # Not fatal, but we might want to address it.
  1967.                 my $handler = $callbacks->{'DocumentHandler'};
  1968.                 $self->{Methods}->{'end_element'} = sub { $handler->end_element(@_) };
  1969.             }
  1970.             return $res;
  1971.         }
  1972.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  1973.             my $res = eval { $callbacks->{'Handler'}->end_element(@_) };
  1974.             if ($@) {
  1975.                 die $@;
  1976.             }
  1977.             else {
  1978.                 # I think there's a buggette here...
  1979.                 # if the first call throws an exception, we don't set it up right.
  1980.                 # Not fatal, but we might want to address it.
  1981.                 my $handler = $callbacks->{'Handler'};
  1982.                 $self->{Methods}->{'end_element'} = sub { $handler->end_element(@_) };
  1983.             }
  1984.             return $res;
  1985.         }
  1986.         else {
  1987.             $self->{Methods}->{'end_element'} = sub { };
  1988.         }
  1989.     }
  1990.  
  1991. }
  1992.  
  1993. sub doctype_decl {
  1994.     my $self = shift;
  1995.     if (defined $self->{Methods}->{'doctype_decl'}) {
  1996.         $self->{Methods}->{'doctype_decl'}->(@_);
  1997.     }
  1998.     else {
  1999.         my $method;
  2000.         my $callbacks;
  2001.         if (exists $self->{ParseOptions}) {
  2002.             $callbacks = $self->{ParseOptions};
  2003.         }
  2004.         else {
  2005.             $callbacks = $self;
  2006.         }
  2007.         if (0) { # dummy to make elsif's below compile
  2008.         }
  2009.         elsif (defined $callbacks->{'DTDHandler'} and $method = $callbacks->{'DTDHandler'}->can('doctype_decl') ) {
  2010.             my $handler = $callbacks->{'DTDHandler'};
  2011.             $self->{Methods}->{'doctype_decl'} = sub { $method->($handler, @_) };
  2012.             return $method->($handler, @_);
  2013.         }
  2014.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('doctype_decl') ) {
  2015.             my $handler = $callbacks->{'Handler'};
  2016.             $self->{Methods}->{'doctype_decl'} = sub { $method->($handler, @_) };
  2017.             return $method->($handler, @_);
  2018.         }
  2019.         elsif (defined $callbacks->{'DTDHandler'} and $callbacks->{'DTDHandler'}->can('AUTOLOAD') ) {
  2020.             my $res = eval { $callbacks->{'DTDHandler'}->doctype_decl(@_) };
  2021.             if ($@) {
  2022.                 die $@;
  2023.             }
  2024.             else {
  2025.                 # I think there's a buggette here...
  2026.                 # if the first call throws an exception, we don't set it up right.
  2027.                 # Not fatal, but we might want to address it.
  2028.                 my $handler = $callbacks->{'DTDHandler'};
  2029.                 $self->{Methods}->{'doctype_decl'} = sub { $handler->doctype_decl(@_) };
  2030.             }
  2031.             return $res;
  2032.         }
  2033.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  2034.             my $res = eval { $callbacks->{'Handler'}->doctype_decl(@_) };
  2035.             if ($@) {
  2036.                 die $@;
  2037.             }
  2038.             else {
  2039.                 # I think there's a buggette here...
  2040.                 # if the first call throws an exception, we don't set it up right.
  2041.                 # Not fatal, but we might want to address it.
  2042.                 my $handler = $callbacks->{'Handler'};
  2043.                 $self->{Methods}->{'doctype_decl'} = sub { $handler->doctype_decl(@_) };
  2044.             }
  2045.             return $res;
  2046.         }
  2047.         else {
  2048.             $self->{Methods}->{'doctype_decl'} = sub { };
  2049.         }
  2050.     }
  2051.  
  2052. }
  2053.  
  2054. sub comment {
  2055.     my $self = shift;
  2056.     if (defined $self->{Methods}->{'comment'}) {
  2057.         $self->{Methods}->{'comment'}->(@_);
  2058.     }
  2059.     else {
  2060.         my $method;
  2061.         my $callbacks;
  2062.         if (exists $self->{ParseOptions}) {
  2063.             $callbacks = $self->{ParseOptions};
  2064.         }
  2065.         else {
  2066.             $callbacks = $self;
  2067.         }
  2068.         if (0) { # dummy to make elsif's below compile
  2069.         }
  2070.         elsif (defined $callbacks->{'DocumentHandler'} and $method = $callbacks->{'DocumentHandler'}->can('comment') ) {
  2071.             my $handler = $callbacks->{'DocumentHandler'};
  2072.             $self->{Methods}->{'comment'} = sub { $method->($handler, @_) };
  2073.             return $method->($handler, @_);
  2074.         }
  2075.         elsif (defined $callbacks->{'LexicalHandler'} and $method = $callbacks->{'LexicalHandler'}->can('comment') ) {
  2076.             my $handler = $callbacks->{'LexicalHandler'};
  2077.             $self->{Methods}->{'comment'} = sub { $method->($handler, @_) };
  2078.             return $method->($handler, @_);
  2079.         }
  2080.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('comment') ) {
  2081.             my $handler = $callbacks->{'Handler'};
  2082.             $self->{Methods}->{'comment'} = sub { $method->($handler, @_) };
  2083.             return $method->($handler, @_);
  2084.         }
  2085.         elsif (defined $callbacks->{'DocumentHandler'} and $callbacks->{'DocumentHandler'}->can('AUTOLOAD') ) {
  2086.             my $res = eval { $callbacks->{'DocumentHandler'}->comment(@_) };
  2087.             if ($@) {
  2088.                 die $@;
  2089.             }
  2090.             else {
  2091.                 # I think there's a buggette here...
  2092.                 # if the first call throws an exception, we don't set it up right.
  2093.                 # Not fatal, but we might want to address it.
  2094.                 my $handler = $callbacks->{'DocumentHandler'};
  2095.                 $self->{Methods}->{'comment'} = sub { $handler->comment(@_) };
  2096.             }
  2097.             return $res;
  2098.         }
  2099.         elsif (defined $callbacks->{'LexicalHandler'} and $callbacks->{'LexicalHandler'}->can('AUTOLOAD') ) {
  2100.             my $res = eval { $callbacks->{'LexicalHandler'}->comment(@_) };
  2101.             if ($@) {
  2102.                 die $@;
  2103.             }
  2104.             else {
  2105.                 # I think there's a buggette here...
  2106.                 # if the first call throws an exception, we don't set it up right.
  2107.                 # Not fatal, but we might want to address it.
  2108.                 my $handler = $callbacks->{'LexicalHandler'};
  2109.                 $self->{Methods}->{'comment'} = sub { $handler->comment(@_) };
  2110.             }
  2111.             return $res;
  2112.         }
  2113.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  2114.             my $res = eval { $callbacks->{'Handler'}->comment(@_) };
  2115.             if ($@) {
  2116.                 die $@;
  2117.             }
  2118.             else {
  2119.                 # I think there's a buggette here...
  2120.                 # if the first call throws an exception, we don't set it up right.
  2121.                 # Not fatal, but we might want to address it.
  2122.                 my $handler = $callbacks->{'Handler'};
  2123.                 $self->{Methods}->{'comment'} = sub { $handler->comment(@_) };
  2124.             }
  2125.             return $res;
  2126.         }
  2127.         else {
  2128.             $self->{Methods}->{'comment'} = sub { };
  2129.         }
  2130.     }
  2131.  
  2132. }
  2133.  
  2134. sub end_entity {
  2135.     my $self = shift;
  2136.     if (defined $self->{Methods}->{'end_entity'}) {
  2137.         $self->{Methods}->{'end_entity'}->(@_);
  2138.     }
  2139.     else {
  2140.         my $method;
  2141.         my $callbacks;
  2142.         if (exists $self->{ParseOptions}) {
  2143.             $callbacks = $self->{ParseOptions};
  2144.         }
  2145.         else {
  2146.             $callbacks = $self;
  2147.         }
  2148.         if (0) { # dummy to make elsif's below compile
  2149.         }
  2150.         elsif (defined $callbacks->{'LexicalHandler'} and $method = $callbacks->{'LexicalHandler'}->can('end_entity') ) {
  2151.             my $handler = $callbacks->{'LexicalHandler'};
  2152.             $self->{Methods}->{'end_entity'} = sub { $method->($handler, @_) };
  2153.             return $method->($handler, @_);
  2154.         }
  2155.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('end_entity') ) {
  2156.             my $handler = $callbacks->{'Handler'};
  2157.             $self->{Methods}->{'end_entity'} = sub { $method->($handler, @_) };
  2158.             return $method->($handler, @_);
  2159.         }
  2160.         elsif (defined $callbacks->{'LexicalHandler'} and $callbacks->{'LexicalHandler'}->can('AUTOLOAD') ) {
  2161.             my $res = eval { $callbacks->{'LexicalHandler'}->end_entity(@_) };
  2162.             if ($@) {
  2163.                 die $@;
  2164.             }
  2165.             else {
  2166.                 # I think there's a buggette here...
  2167.                 # if the first call throws an exception, we don't set it up right.
  2168.                 # Not fatal, but we might want to address it.
  2169.                 my $handler = $callbacks->{'LexicalHandler'};
  2170.                 $self->{Methods}->{'end_entity'} = sub { $handler->end_entity(@_) };
  2171.             }
  2172.             return $res;
  2173.         }
  2174.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  2175.             my $res = eval { $callbacks->{'Handler'}->end_entity(@_) };
  2176.             if ($@) {
  2177.                 die $@;
  2178.             }
  2179.             else {
  2180.                 # I think there's a buggette here...
  2181.                 # if the first call throws an exception, we don't set it up right.
  2182.                 # Not fatal, but we might want to address it.
  2183.                 my $handler = $callbacks->{'Handler'};
  2184.                 $self->{Methods}->{'end_entity'} = sub { $handler->end_entity(@_) };
  2185.             }
  2186.             return $res;
  2187.         }
  2188.         else {
  2189.             $self->{Methods}->{'end_entity'} = sub { };
  2190.         }
  2191.     }
  2192.  
  2193. }
  2194.  
  2195. sub warning {
  2196.     my $self = shift;
  2197.     if (defined $self->{Methods}->{'warning'}) {
  2198.         $self->{Methods}->{'warning'}->(@_);
  2199.     }
  2200.     else {
  2201.         my $method;
  2202.         my $callbacks;
  2203.         if (exists $self->{ParseOptions}) {
  2204.             $callbacks = $self->{ParseOptions};
  2205.         }
  2206.         else {
  2207.             $callbacks = $self;
  2208.         }
  2209.         if (0) { # dummy to make elsif's below compile
  2210.         }
  2211.         elsif (defined $callbacks->{'ErrorHandler'} and $method = $callbacks->{'ErrorHandler'}->can('warning') ) {
  2212.             my $handler = $callbacks->{'ErrorHandler'};
  2213.             $self->{Methods}->{'warning'} = sub { $method->($handler, @_) };
  2214.             return $method->($handler, @_);
  2215.         }
  2216.         elsif (defined $callbacks->{'Handler'} and $method = $callbacks->{'Handler'}->can('warning') ) {
  2217.             my $handler = $callbacks->{'Handler'};
  2218.             $self->{Methods}->{'warning'} = sub { $method->($handler, @_) };
  2219.             return $method->($handler, @_);
  2220.         }
  2221.         elsif (defined $callbacks->{'ErrorHandler'} and $callbacks->{'ErrorHandler'}->can('AUTOLOAD') ) {
  2222.             my $res = eval { $callbacks->{'ErrorHandler'}->warning(@_) };
  2223.             if ($@) {
  2224.                 die $@;
  2225.             }
  2226.             else {
  2227.                 # I think there's a buggette here...
  2228.                 # if the first call throws an exception, we don't set it up right.
  2229.                 # Not fatal, but we might want to address it.
  2230.                 my $handler = $callbacks->{'ErrorHandler'};
  2231.                 $self->{Methods}->{'warning'} = sub { $handler->warning(@_) };
  2232.             }
  2233.             return $res;
  2234.         }
  2235.         elsif (defined $callbacks->{'Handler'} and $callbacks->{'Handler'}->can('AUTOLOAD') ) {
  2236.             my $res = eval { $callbacks->{'Handler'}->warning(@_) };
  2237.             if ($@) {
  2238.                 die $@;
  2239.             }
  2240.             else {
  2241.                 # I think there's a buggette here...
  2242.                 # if the first call throws an exception, we don't set it up right.
  2243.                 # Not fatal, but we might want to address it.
  2244.                 my $handler = $callbacks->{'Handler'};
  2245.                 $self->{Methods}->{'warning'} = sub { $handler->warning(@_) };
  2246.             }
  2247.             return $res;
  2248.         }
  2249.         else {
  2250.             $self->{Methods}->{'warning'} = sub { };
  2251.         }
  2252.     }
  2253.  
  2254. }
  2255.  
  2256. #-------------------------------------------------------------------#
  2257. # Class->new(%options)
  2258. #-------------------------------------------------------------------#
  2259. sub new {
  2260.     my $proto = shift;
  2261.     my $class = ref($proto) || $proto;
  2262.     my $options = ($#_ == 0) ? shift : { @_ };
  2263.  
  2264.     unless ( defined( $options->{Handler} )         or
  2265.              defined( $options->{ContentHandler} )  or
  2266.              defined( $options->{DTDHandler} )      or
  2267.              defined( $options->{DocumentHandler} ) or
  2268.              defined( $options->{LexicalHandler} )  or
  2269.              defined( $options->{ErrorHandler} )    or
  2270.              defined( $options->{DeclHandler} ) ) {
  2271.             
  2272.              $options->{Handler} = XML::SAX::Base::NoHandler->new;
  2273.     }
  2274.  
  2275.     my $self = bless $options, $class;
  2276.     # turn NS processing on by default
  2277.     $self->set_feature('http://xml.org/sax/features/namespaces', 1);
  2278.     return $self;
  2279. }
  2280. #-------------------------------------------------------------------#
  2281.  
  2282. #-------------------------------------------------------------------#
  2283. # $p->parse(%options)
  2284. #-------------------------------------------------------------------#
  2285. sub parse {
  2286.     my $self = shift;
  2287.     my $parse_options = $self->get_options(@_);
  2288.     local $self->{ParseOptions} = $parse_options;
  2289.     if ($self->{Parent}) { # calling parse on a filter for some reason
  2290.         return $self->{Parent}->parse($parse_options);
  2291.     }
  2292.     else {
  2293.         my $method;
  2294.         if (defined $parse_options->{Source}{CharacterStream} and $method = $self->can('_parse_characterstream')) {
  2295.             warn("parse charstream???\n");
  2296.             return $method->($self, $parse_options->{Source}{CharacterStream});
  2297.         }
  2298.         elsif (defined $parse_options->{Source}{ByteStream} and $method = $self->can('_parse_bytestream')) {
  2299.             return $method->($self, $parse_options->{Source}{ByteStream});
  2300.         }
  2301.         elsif (defined $parse_options->{Source}{String} and $method = $self->can('_parse_string')) {
  2302.             return $method->($self, $parse_options->{Source}{String});
  2303.         }
  2304.         elsif (defined $parse_options->{Source}{SystemId} and $method = $self->can('_parse_systemid')) {
  2305.             return $method->($self, $parse_options->{Source}{SystemId});
  2306.         }
  2307.         else {
  2308.             die "No _parse_* routine defined on this driver (if it a filter, remember to set the Parent property) [$self]";
  2309.         }
  2310.     }
  2311. }
  2312. #-------------------------------------------------------------------#
  2313.  
  2314. #-------------------------------------------------------------------#
  2315. # $p->parse_file(%options)
  2316. #-------------------------------------------------------------------#
  2317. sub parse_file {
  2318.     my $self = shift;
  2319.     my $file = shift;
  2320.     my $parse_options = $self->get_options(@_);
  2321.     $parse_options->{Source}{ByteStream} = $file;
  2322.     return $self->parse($parse_options);
  2323. }
  2324. #-------------------------------------------------------------------#
  2325.  
  2326. #-------------------------------------------------------------------#
  2327. # $p->parse_uri(%options)
  2328. #-------------------------------------------------------------------#
  2329. sub parse_uri {
  2330.     my $self = shift;
  2331.     my $file = shift;
  2332.     my $parse_options = $self->get_options(@_);
  2333.     $parse_options->{Source}{SystemId} = $file;
  2334.     return $self->parse($parse_options);
  2335. }
  2336. #-------------------------------------------------------------------#
  2337.  
  2338. #-------------------------------------------------------------------#
  2339. # $p->parse_string(%options)
  2340. #-------------------------------------------------------------------#
  2341. sub parse_string {
  2342.     my $self = shift;
  2343.     my $string = shift;
  2344.     my $parse_options = $self->get_options(@_);
  2345.     $parse_options->{Source}{String} = $string;
  2346.     return $self->parse($parse_options);
  2347. }
  2348. #-------------------------------------------------------------------#
  2349.  
  2350. #-------------------------------------------------------------------#
  2351. # get_options
  2352. #-------------------------------------------------------------------#
  2353. sub get_options {
  2354.     my $self = shift;
  2355.  
  2356.     if (@_ == 1) {
  2357.         return { %$self, %{$_[0]} };
  2358.     } else {
  2359.         return { %$self, @_ };
  2360.     }
  2361. }
  2362. #-------------------------------------------------------------------#
  2363.  
  2364. #-------------------------------------------------------------------#
  2365. # get_features
  2366. #-------------------------------------------------------------------#
  2367. sub get_features {
  2368.    return (
  2369.     'http://xml.org/sax/features/external-general-entities'     => undef,
  2370.     'http://xml.org/sax/features/external-parameter-entities'   => undef,
  2371.     'http://xml.org/sax/features/is-standalone'                 => undef,
  2372.     'http://xml.org/sax/features/lexical-handler'               => undef,
  2373.     'http://xml.org/sax/features/parameter-entities'            => undef,
  2374.     'http://xml.org/sax/features/namespaces'                    => 1,
  2375.     'http://xml.org/sax/features/namespace-prefixes'            => 0,
  2376.     'http://xml.org/sax/features/string-interning'              => undef,
  2377.     'http://xml.org/sax/features/use-attributes2'               => undef,
  2378.     'http://xml.org/sax/features/use-locator2'                  => undef,
  2379.     'http://xml.org/sax/features/validation'                    => undef,
  2380.  
  2381.     'http://xml.org/sax/properties/dom-node'                    => undef,
  2382.     'http://xml.org/sax/properties/xml-string'                  => undef,
  2383.                );
  2384. }
  2385. #-------------------------------------------------------------------#
  2386.  
  2387. #-------------------------------------------------------------------#
  2388. # get_feature
  2389. #-------------------------------------------------------------------#
  2390. sub get_feature {
  2391.     my $self = shift;
  2392.     my $feat = shift;
  2393.  
  2394.     # check %FEATURES to see if it's there, and return it if so
  2395.     # throw XML::SAX::Exception::NotRecognized if it's not there
  2396.     # throw XML::SAX::Exception::NotSupported if it's there but we
  2397.     # don't support it
  2398.     
  2399.     my %features = $self->get_features();
  2400.     if (exists $features{$feat}) {
  2401.         my %supported = map { $_ => 1 } $self->supported_features();
  2402.         if ($supported{$feat}) {
  2403.             return $self->{__PACKAGE__ . "::Features"}{$feat};
  2404.         }
  2405.         throw XML::SAX::Exception::NotSupported(
  2406.             Message => "The feature '$feat' is not supported by " . ref($self),
  2407.             Exception => undef,
  2408.             );
  2409.     }
  2410.     throw XML::SAX::Exception::NotRecognized(
  2411.         Message => "The feature '$feat' is not recognized by " . ref($self),
  2412.         Exception => undef,
  2413.         );
  2414. }
  2415. #-------------------------------------------------------------------#
  2416.  
  2417. #-------------------------------------------------------------------#
  2418. # set_feature
  2419. #-------------------------------------------------------------------#
  2420. sub set_feature {
  2421.     my $self = shift;
  2422.     my $feat = shift;
  2423.     my $value = shift;
  2424.     # check %FEATURES to see if it's there, and set it if so
  2425.     # throw XML::SAX::Exception::NotRecognized if it's not there
  2426.     # throw XML::SAX::Exception::NotSupported if it's there but we
  2427.     # don't support it
  2428.     
  2429.     my %features = $self->get_features();
  2430.     if (exists $features{$feat}) {
  2431.         my %supported = map { $_ => 1 } $self->supported_features();
  2432.         if ($supported{$feat}) {
  2433.             return $self->{__PACKAGE__ . "::Features"}{$feat} = $value;
  2434.         }
  2435.         throw XML::SAX::Exception::NotSupported(
  2436.             Message => "The feature '$feat' is not supported by " . ref($self),
  2437.             Exception => undef,
  2438.             );
  2439.     }
  2440.     throw XML::SAX::Exception::NotRecognized(
  2441.         Message => "The feature '$feat' is not recognized by " . ref($self),
  2442.         Exception => undef,
  2443.         );
  2444. }
  2445. #-------------------------------------------------------------------#
  2446.  
  2447. #-------------------------------------------------------------------#
  2448. # get_handler and friends
  2449. #-------------------------------------------------------------------#
  2450. sub get_handler {
  2451.     my $self = shift;
  2452.     my $handler_type = shift;
  2453.     $handler_type ||= 'Handler';
  2454.     return  defined( $self->{$handler_type} ) ? $self->{$handler_type} : undef;
  2455. }
  2456.  
  2457. sub get_document_handler {
  2458.     my $self = shift;
  2459.     return $self->get_handler('DocumentHandler', @_);
  2460. }
  2461.  
  2462. sub get_content_handler {
  2463.     my $self = shift;
  2464.     return $self->get_handler('ContentHandler', @_);
  2465. }
  2466.  
  2467. sub get_dtd_handler {
  2468.     my $self = shift;
  2469.     return $self->get_handler('DTDHandler', @_);
  2470. }
  2471.  
  2472. sub get_lexical_handler {
  2473.     my $self = shift;
  2474.     return $self->get_handler('LexicalHandler', @_);
  2475. }
  2476.  
  2477. sub get_decl_handler {
  2478.     my $self = shift;
  2479.     return $self->get_handler('DeclHandler', @_);
  2480. }
  2481.  
  2482. sub get_error_handler {
  2483.     my $self = shift;
  2484.     return $self->get_handler('ErrorHandler', @_);
  2485. }
  2486.  
  2487. sub get_entity_resolver {
  2488.     my $self = shift;
  2489.     return $self->get_handler('EntityResolver', @_);
  2490. }
  2491. #-------------------------------------------------------------------#
  2492.  
  2493. #-------------------------------------------------------------------#
  2494. # set_handler and friends
  2495. #-------------------------------------------------------------------#
  2496. sub set_handler {
  2497.     my $self = shift;
  2498.     my ($new_handler, $handler_type) = reverse @_;
  2499.     $handler_type ||= 'Handler';
  2500.     $self->{Methods} = {} if $self->{Methods};
  2501.     $self->{$handler_type} = $new_handler;
  2502.     return 1;
  2503. }
  2504.  
  2505. sub set_document_handler {
  2506.     my $self = shift;
  2507.     return $self->set_handler('DocumentHandler', @_);
  2508. }
  2509.  
  2510. sub set_content_handler {
  2511.     my $self = shift;
  2512.     return $self->set_handler('ContentHandler', @_);
  2513. }
  2514. sub set_dtd_handler {
  2515.     my $self = shift;
  2516.     return $self->set_handler('DTDHandler', @_);
  2517. }
  2518. sub set_lexical_handler {
  2519.     my $self = shift;
  2520.     return $self->set_handler('LexicalHandler', @_);
  2521. }
  2522. sub set_decl_handler {
  2523.     my $self = shift;
  2524.     return $self->set_handler('DeclHandler', @_);
  2525. }
  2526. sub set_error_handler {
  2527.     my $self = shift;
  2528.     return $self->set_handler('ErrorHandler', @_);
  2529. }
  2530. sub set_entity_resolver {
  2531.     my $self = shift;
  2532.     return $self->set_handler('EntityResolver', @_);
  2533. }
  2534.  
  2535. #-------------------------------------------------------------------#
  2536.  
  2537. #-------------------------------------------------------------------#
  2538. # supported_features
  2539. #-------------------------------------------------------------------#
  2540. sub supported_features {
  2541.     my $self = shift;
  2542.     # Only namespaces are required by all parsers
  2543.     return (
  2544.         'http://xml.org/sax/features/namespaces',
  2545.     );
  2546. }
  2547. #-------------------------------------------------------------------#
  2548.  
  2549. sub no_op {
  2550.     # this space intentionally blank
  2551. }
  2552.  
  2553.  
  2554. package XML::SAX::Base::NoHandler;
  2555.  
  2556. # we need a fake handler that doesn't implement anything, this
  2557. # simplifies the code a lot (though given the recent changes,
  2558. # it may be better to do without)
  2559. sub new {
  2560.     #warn "no handler called\n";
  2561.     return bless {};
  2562. }
  2563.  
  2564. 1;
  2565.  
  2566. __END__
  2567.  
  2568. =head1 NAME
  2569.  
  2570. XML::SAX::Base - Base class SAX Drivers and Filters
  2571.  
  2572. =head1 SYNOPSIS
  2573.  
  2574.   package MyFilter;
  2575.   use XML::SAX::Base;
  2576.   @ISA = ('XML::SAX::Base');
  2577.  
  2578. =head1 DESCRIPTION
  2579.  
  2580. This module has a very simple task - to be a base class for PerlSAX
  2581. drivers and filters. It's default behaviour is to pass the input directly
  2582. to the output unchanged. It can be useful to use this module as a base class
  2583. so you don't have to, for example, implement the characters() callback.
  2584.  
  2585. The main advantages that it provides are easy dispatching of events the right
  2586. way (ie it takes care for you of checking that the handler has implemented
  2587. that method, or has defined an AUTOLOAD), and the guarantee that filters
  2588. will pass along events that they aren't implementing to handlers downstream
  2589. that might nevertheless be interested in them.
  2590.  
  2591. =head1 WRITING SAX DRIVERS AND FILTERS
  2592.  
  2593. Writing SAX Filters is tremendously easy: all you need to do is
  2594. inherit from this module, and define the events you want to handle. A
  2595. more detailed explanation can be found at
  2596. http://www.xml.com/pub/a/2001/10/10/sax-filters.html.
  2597.  
  2598. Writing Drivers is equally simple. The one thing you need to pay
  2599. attention to is B<NOT> to call events yourself (this applies to Filters
  2600. as well). For instance:
  2601.  
  2602.   package MyFilter;
  2603.   use base qw(XML::SAX::Base);
  2604.  
  2605.   sub start_element {
  2606.     my $self = shift;
  2607.     my $data = shift;
  2608.     # do something
  2609.     $self->{Handler}->start_element($data); # BAD
  2610.   }
  2611.  
  2612. The above example works well as precisely that: an example. But it has
  2613. several faults: 1) it doesn't test to see whether the handler defines
  2614. start_element. Perhaps it doesn't want to see that event, in which
  2615. case you shouldn't throw it (otherwise it'll die). 2) it doesn't check
  2616. ContentHandler and then Handler (ie it doesn't look to see that the
  2617. user hasn't requested events on a specific handler, and if not on the
  2618. default one), 3) if it did check all that, not only would the code be
  2619. cumbersome (see this module's source to get an idea) but it would also
  2620. probably have to check for a DocumentHandler (in case this were SAX1)
  2621. and for AUTOLOADs potentially defined in all these packages. As you can
  2622. tell, that would be fairly painful. Instead of going through that,
  2623. simply remember to use code similar to the following instead:
  2624.  
  2625.   package MyFilter;
  2626.   use base qw(XML::SAX::Base);
  2627.  
  2628.   sub start_element {
  2629.     my $self = shift;
  2630.     my $data = shift;
  2631.     # do something to filter
  2632.     $self->SUPER::start_element($data); # GOOD (and easy) !
  2633.   }
  2634.  
  2635. This way, once you've done your job you hand the ball back to
  2636. XML::SAX::Base and it takes care of all those problems for you!
  2637.  
  2638. Note that the above example doesn't apply to filters only, drivers
  2639. will benefit from the exact same feature.
  2640.  
  2641. =head1 METHODS
  2642.  
  2643. A number of methods are defined within this class for the purpose of
  2644. inheritance. Some probably don't need to be overridden (eg parse_file)
  2645. but some clearly should be (eg parse). Options for these methods are
  2646. described in the PerlSAX2 specification available from
  2647. http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/~checkout~/perl-xml/libxml-perl/doc/sax-2.0.html?rev=HEAD&content-type=text/html.
  2648.  
  2649. =over 4
  2650.  
  2651. =item * parse
  2652.  
  2653. The parse method is the main entry point to parsing documents. Internally
  2654. the parse method will detect what type of "thing" you are parsing, and
  2655. call the appropriate method in your implementation class. Here is the
  2656. mapping table of what is in the Source options (see the Perl SAX 2.0
  2657. specification for the meaning of these values):
  2658.  
  2659.   Source Contains           parse() calls
  2660.   ===============           =============
  2661.   CharacterStream (*)       _parse_characterstream($stream, $options)
  2662.   ByteStream                _parse_bytestream($stream, $options)
  2663.   String                    _parse_string($string, $options)
  2664.   SystemId                  _parse_systemid($string, $options)
  2665.  
  2666. However note that these methods may not be sensible if your driver class 
  2667. is not for parsing XML. An example might be a DBI driver that generates
  2668. XML/SAX from a database table. If that is the case, you likely want to
  2669. write your own parse() method.
  2670.  
  2671. Also note that the Source may contain both a PublicId entry, and an
  2672. Encoding entry. To get at these, examine $options->{Source} as passed
  2673. to your method.
  2674.  
  2675. (*) A CharacterStream is a filehandle that does not need any encoding
  2676. translation done on it. This is implemented as a regular filehandle
  2677. and only works under Perl 5.7.2 or higher using PerlIO. To get a single
  2678. character, or number of characters from it, use the perl core read()
  2679. function. To get a single byte from it (or number of bytes), you can 
  2680. use sysread(). The encoding of the stream should be in the Encoding
  2681. entry for the Source.
  2682.  
  2683. =item * parse_file, parse_uri, parse_string
  2684.  
  2685. These are all convenience variations on parse(), and in fact simply
  2686. set up the options before calling it. You probably don't need to
  2687. override these.
  2688.  
  2689. =item * get_options
  2690.  
  2691. This is a convenience method to get options in SAX2 style, or more
  2692. generically either as hashes or as hashrefs (it returns a hashref).
  2693. You will probably want to use this method in your own implementations
  2694. of parse() and of new().
  2695.  
  2696. =item * get_feature, set_feature
  2697.  
  2698. These simply get and set features, and throw the
  2699. appropriate exceptions defined in the specification if need be.
  2700.  
  2701. If your subclass defines features not defined in this one,
  2702. then you should override these methods in such a way that they check for
  2703. your features first, and then call the base class's methods
  2704. for features not defined by your class. An example would be:
  2705.  
  2706.   sub get_feature {
  2707.       my $self = shift;
  2708.       my $feat = shift;
  2709.       if (exists $MY_FEATURES{$feat}) {
  2710.           # handle the feature in various ways
  2711.       }
  2712.       else {
  2713.           return $self->SUPER::get_feature($feat);
  2714.       }
  2715.   }
  2716.  
  2717. Currently this part is unimplemented.
  2718.  
  2719.  
  2720. =item * set_handler
  2721.  
  2722. This method takes a handler type (Handler, ContentHandler, etc.) and a
  2723. handler object as arguments, and changes the current handler for that
  2724. handler type, while taking care of resetting the internal state that 
  2725. needs to be reset. This allows one to change a handler during parse
  2726. without running into problems (changing it on the parser object 
  2727. directly will most likely cause trouble).
  2728.  
  2729. =item * set_document_handler, set_content_handler, set_dtd_handler, set_lexical_handler, set_decl_handler, set_error_handler, set_entity_resolver
  2730.  
  2731. These are just simple wrappers around the former method, and take a
  2732. handler object as their argument. Internally they simply call
  2733. set_handler with the correct arguments.
  2734.  
  2735. =item * get_handler
  2736.  
  2737. The inverse of set_handler, this method takes a an optional string containing a handler type (DTDHandler, 
  2738. ContentHandler, etc. 'Handler' is used if no type is passed). It returns a reference to the object that implements
  2739. that that class, or undef if that handler type is not set for the current driver/filter. 
  2740.  
  2741. =item * get_document_handler, get_content_handler, get_dtd_handler, get_lexical_handler, get_decl_handler, 
  2742. get_error_handler, get_entity_resolver
  2743.  
  2744. These are just simple wrappers around the get_handler() method, and take no arguments. Internally 
  2745. they simply call get_handler with the correct handler type name.
  2746.  
  2747. =back
  2748.  
  2749. It would be rather useless to describe all the methods that this
  2750. module implements here. They are all the methods supported in SAX1 and
  2751. SAX2. In case your memory is a little short, here is a list. The
  2752. apparent duplicates are there so that both versions of SAX can be
  2753. supported.
  2754.  
  2755. =over 4
  2756.  
  2757. =item * start_document
  2758.  
  2759. =item * end_document
  2760.  
  2761. =item * start_element
  2762.  
  2763. =item * start_document
  2764.  
  2765. =item * end_document
  2766.  
  2767. =item * start_element
  2768.  
  2769. =item * end_element
  2770.  
  2771. =item * characters
  2772.  
  2773. =item * processing_instruction
  2774.  
  2775. =item * ignorable_whitespace
  2776.  
  2777. =item * set_document_locator
  2778.  
  2779. =item * start_prefix_mapping
  2780.  
  2781. =item * end_prefix_mapping
  2782.  
  2783. =item * skipped_entity
  2784.  
  2785. =item * start_cdata
  2786.  
  2787. =item * end_cdata
  2788.  
  2789. =item * comment
  2790.  
  2791. =item * entity_reference
  2792.  
  2793. =item * notation_decl
  2794.  
  2795. =item * unparsed_entity_decl
  2796.  
  2797. =item * element_decl
  2798.  
  2799. =item * attlist_decl
  2800.  
  2801. =item * doctype_decl
  2802.  
  2803. =item * xml_decl
  2804.  
  2805. =item * entity_decl
  2806.  
  2807. =item * attribute_decl
  2808.  
  2809. =item * internal_entity_decl
  2810.  
  2811. =item * external_entity_decl
  2812.  
  2813. =item * resolve_entity
  2814.  
  2815. =item * start_dtd
  2816.  
  2817. =item * end_dtd
  2818.  
  2819. =item * start_entity
  2820.  
  2821. =item * end_entity
  2822.  
  2823. =item * warning
  2824.  
  2825. =item * error
  2826.  
  2827. =item * fatal_error
  2828.  
  2829. =back
  2830.  
  2831. =head1 TODO
  2832.  
  2833.   - more tests
  2834.   - conform to the "SAX Filters" and "Java and DOM compatibility"
  2835.     sections of the SAX2 document.
  2836.  
  2837. =head1 AUTHOR
  2838.  
  2839. Kip Hampton (khampton@totalcinema.com) did most of the work, after porting
  2840. it from XML::Filter::Base.
  2841.  
  2842. Robin Berjon (robin@knowscape.com) pitched in with patches to make it 
  2843. usable as a base for drivers as well as filters, along with other patches.
  2844.  
  2845. Matt Sergeant (matt@sergeant.org) wrote the original XML::Filter::Base,
  2846. and patched a few things here and there, and imported it into
  2847. the XML::SAX distribution.
  2848.  
  2849. =head1 SEE ALSO
  2850.  
  2851. L<XML::SAX>
  2852.  
  2853. =cut
  2854.  
  2855.