Select Code to Download

sub parse {
  my $self = shift;
...
  return unless defined wantarray;
  return wantarray ? @result : $result;
}

<record>
  <source-app >ABC</source-app>
...
    <style>uspoøádali Francis S. Fiorenza a John P. Galvin ; [z angl
+iè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>