[libcatmandu-marc-perl] 63/208: fix documentation of MiJ

Jonas Smedegaard dr at jones.dk
Sat Oct 28 03:42:35 UTC 2017


This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag upstream/1.19
in repository libcatmandu-marc-perl.

commit ea9411f9579c41d6d7c12718be46617da08bbe09
Author: Johann Rolschewski <jorol at cpan.org>
Date:   Mon Oct 17 15:19:19 2016 +0200

    fix documentation of MiJ
---
 lib/Catmandu/Exporter/MARC/MiJ.pm | 6 +++---
 lib/Catmandu/Importer/MARC/MiJ.pm | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/Catmandu/Exporter/MARC/MiJ.pm b/lib/Catmandu/Exporter/MARC/MiJ.pm
index 661d3bb..9b784e4 100644
--- a/lib/Catmandu/Exporter/MARC/MiJ.pm
+++ b/lib/Catmandu/Exporter/MARC/MiJ.pm
@@ -5,13 +5,13 @@ Catmandu::Exporter::MARC::MiJ - Exporter for MARC records to MARC in JSON
 =head1 SYNOPSIS
 
     # From the command line
-    $ catmandu convert MARC --type XML to MARC --type MiJ < /foo/data.mrc
+    $ catmandu convert MARC --type XML to MARC --type MiJ < /foo/bar.xml
 
     # From Perl
     use Catmandu;
 
-    my $importer = Catmandu->importer('MARC', file => "/foo/bar.mrc" , type => 'XML');
-    my $exporter = Catmandu->exporter('MARC', file => "marc.xml", type => 'MiJ' );
+    my $importer = Catmandu->importer('MARC', file => "/foo/bar.xml" , type => 'XML');
+    my $exporter = Catmandu->exporter('MARC', file => "bar.json", type => 'MiJ' );
 
     $exporter->add($importer);
     $exporter->commit;
diff --git a/lib/Catmandu/Importer/MARC/MiJ.pm b/lib/Catmandu/Importer/MARC/MiJ.pm
index 01f3e4f..6b31db3 100644
--- a/lib/Catmandu/Importer/MARC/MiJ.pm
+++ b/lib/Catmandu/Importer/MARC/MiJ.pm
@@ -5,13 +5,13 @@ Catmandu::Importer::MARC::MiJ - Package that imports MARC-in-JSON records
 =head1 SYNOPSIS
 
     # From the command line
-    $ catmandu convert MARC --type MiJ --fix "marc_map('245a','title')" < /foo/data.js
+    $ catmandu convert MARC --type MiJ --fix "marc_map('245a','title')" < /foo/bar.json
 
     # From perl
     use Catmandu;
 
     # import records from file
-    my $importer = Catmandu->importer('MARC',file => '/foo/data.js', type => 'MiJ');
+    my $importer = Catmandu->importer('MARC',file => '/foo/bar.json', type => 'MiJ');
     my $fixer    = Catmandu->fixer("marc_map('245a','title')");
 
     $importer->each(sub {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-marc-perl.git



More information about the Pkg-perl-cvs-commits mailing list