sub parse {
  my $self = shift;
  my $arg  = shift;
  my @expat_options = ();
  my ($key, $val);
  while (($key, $val) = each %{$self}) {
    push(@expat_options, $key, $val)
      unless exists $self->{Non_Expat_Options}->{$key};
  }
  
  my $expat = new XML::Parser::Expat(@expat_options, @_);
  my %handlers = %{$self->{Handlers}};
  my $init = delete $handlers{Init};
  my $final = delete $handlers{Final};
  
  $expat->setHandlers(%handlers);
  
  if ($self->{Base}) {
    $expat->base($self->{Base});
  }
 
  &$init($expat)
    if defined($init);
  
  my @result = ();
  my $result;
  eval {
    $result = $expat->parse($arg);
  };
  my $err = $@;
  if ($err) {
    $expat->release;
    die $err;
  }
  
  if ($result and defined($final)) {
    if (wantarray) {
      @result = &$final($expat);
    }
    else {
      $result = &$final($expat);
    }
  }
  
  $expat->release;
 
  return unless defined wantarray;
  return wantarray ? @result : $result;
}

##</code><code>##

<record>
  <source-app >ABC</source-app>
  <ref-type>6</ref-type>
  <contributors>
    <authors>
      <author>
        <style face="normal" font="default" size="100%">Dvoøák, Petr</style>
      </author>
    </authors>
  </contributors>
  <titles>
    <title>
      <style face="normal" font="default" size="100%">Systematická teologie I : ø�*mskokatolická perspektiva</style>
    </title>
  </titles>
  <pages>
    <style>285 s.</style>
  </pages>
  <edition>
    <style>1. vyd.</style>
  </edition>
  <keywords>
    <keyword>
      <style>uèen�* katolické c�*rkve</style>
    </keyword>
  </keywords>
  <dates>
    <year>
      <style>1996</style>
    </year>
  </dates>
  <pub-location>
    <style>Brno&#xD;Praha</style>
  </pub-location>
  <publisher>
    <style>Centrum pro studium demokracie a kultury ;&#xD;Èeská køesanská akademie</style>
  </publisher>
  <notes>
    <style>uspoøádali Francis S. Fiorenza a John P. Galvin ; [z angliètiny pøeložili Petr Dvoøák ... et al.]&#xD;20 cm&#xD;Pozn.&#xD;Pozn. o autorech traktátù&#xD;Zkratky&#xD;Bibliogr.&#xD;Odkazy na lit.&#xD;Jmenný a vìcný rejstø�*k</style>
  </notes>
</record>