NAME

MAB2::Writer::XML - MAB2 XML format serializer

SYNOPSIS

MAB2::Writer::XML is a MAB2 XML serializer.

use MAB2::Writer::XML;

my @mab_records = (
    [
      ['001', ' ', '_', '2415107-5'],
      ['331', ' ', '_', 'Code4Lib journal'],
      ['655', 'e', 'u', 'http://journal.code4lib.org/', 'z', 'kostenfrei'],
      ...
    ],
    {
      record => [
          ['001', ' ', '_', '2415107-5'],
          ['331', ' ', '_', 'Code4Lib journal'],
          ['655', 'e', 'u', 'http://journal.code4lib.org/', 'z', 'kostenfrei'],
          ...
      ]
    }
);

my $writer = MAB2::Writer::XML->new( fh => $fh, xml_declaration => 1, collection => 1 );

$writer->start();

foreach my $record (@mab_records) {
    $writer->write($record);
}

$writer->end();

Arguments

xml_declaration

Write XML declaration. Set to 0 or 1. Default: 0. Optional.

collection

Wrap records in collection element (<datei>). Set to 0 or 1. Default: 0. Optional.

See also MAB2::Writer::Handle.

METHODS

new(file => $file | fh => $fh [, xml_declaration => 1, collection => 1, encoding => 'UTF-8'])

start()

Writes XML declaration and/or start element for a collection.

_write_record()

end()

Writes end element for the collection.

SEEALSO

MAB2::Writer::Handle, Catmandu::Exporter.

AUTHOR

Johann Rolschewski <jorol@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Johann Rolschewski.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.