/usr/share/perl5/Catmandu/MARC.pm is in libcatmandu-marc-perl 0.214-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | package Catmandu::MARC;
=head1 NAME
Catmandu::MARC - Catmandu modules for working with MARC data
=begin markdown
# STATUS
[](https://travis-ci.org/LibreCat/Catmandu-MARC)
[](https://coveralls.io/r/LibreCat/Catmandu-MARC)
[](http://cpants.cpanauthors.org/dist/Catmandu-MARC)
=end markdown
=cut
our $VERSION = '0.214';
=head1 SYNOPSIS
# On the command line
$ catmandu convert MARC to JSON < data.mrc
$ catmandu convert MARC --type MiJ to YAML < data.marc_in_json
$ catmandu convert MARC --fix "marc_map(245,title)" < data.mrc
$ catmandu convert MARC --fix myfixes.txt < data.mrc
myfixes:
marc_map("245a", title)
marc_map("5**", note.$append)
marc_map('710','my.authors.$append')
marc_map('008_/35-35','my.language')
remove_field(record)
add_field(my.funny.field,'test123')
$ catmandu import MARC --fix myfixes.txt to ElasticSearch --index_name 'catmandu' < data.marc
# In perl
use Catmandu;
my $importer = Catmandu->importer('MARC', file => 'data.mrc' );
my $fixer = Catmandu->fixer('myfixes.txt');
my $store = Catmandu->store('ElasticSearch', index_name => 'catmandu');
$store->add_many(
$fixer->fix($importer)
);
=head1 MODULES
=over
=item * L<Catmandu::Importer::MARC>
=item * L<Catmandu::Exporter::MARC>
=item * L<Catmandu::Fix::marc_map>
=item * L<Catmandu::Fix::marc_add>
=item * L<Catmandu::Fix::marc_remove>
=item * L<Catmandu::Fix::marc_xml>
=item * L<Catmandu::Fix::marc_in_json>
=item * L<Catmandu::Fix::marc_set>
=item * L<Catmandu::Fix::Bind::marc_each>
=item * L<Catmandu::Fix::Condition::marc_match>
=item * L<Catmandu::Fix::Inline::marc_map>
=item * L<Catmandu::Fix::Inline::marc_add>
=item * L<Catmandu::Fix::Inline::marc_remove>
=back
=head1 DESCRIPTION
With Catmandu, LibreCat tools abstract digital library and research services as data
warehouse processes. As stores we reuse MongoDB or ElasticSearch providing us with
developer friendly APIs. Catmandu works with international library standards such as
MARC, MODS and Dublin Core, protocols such as OAI-PMH, SRU and open repositories such
as DSpace and Fedora. And, of course, we speak the evolving Semantic Web.
Follow us on L<http://librecat.org> and read an introduction into Catmandu data
processing at L<https://github.com/LibreCat/Catmandu/wiki>.
=head1 SEE ALSO
L<Catmandu>,
L<Catmandu::Importer>,
L<Catmandu::Fix>,
L<Catmandu::Store>
=head1 AUTHOR
Patrick Hochstenbach, C<< <patrick.hochstenbach at ugent.be> >>
=head1 CONTRIBUTORS
=over
=item * Nicolas Steenlant, C<< <nicolas.steenlant at ugent.be> >>
=item * Nicolas Franck, C<< <nicolas.franck at ugent.be> >>
=item * Johann Rolschewski, C<< johann.rolschewski at sbb.spk-berlin.de >>
=item * Chris Cormack
=item * Robin Sheat
=back
=head1 LICENSE AND COPYRIGHT
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
=cut
1;
|