1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!perl
use strict;
use warnings;
use Test::More;
use Catmandu;
note "
---
".'blahmarc_spec(...{^1=\1}{^2=\0} indicators10: "Cross-platform Perl /Eric F. Johnson."';
{
my $importer = Catmandu->importer(
'MARC',
file => 't/camel9.mrc',
type => 'ISO',
fix => 'marc_spec("...{^1=\1}{^2=\0}", indicators10.$append); retain_field(indicators10)'
);
my $record = $importer->first;
is_deeply $record->{indicators10}, ['Cross-platform Perl /Eric F. Johnson.'], q|fix: marc_spec('...{^1=\1}{^2=\0}', indicators10.$append);|;
}
done_testing;
|
