The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
MARC-Indexer-0.03
River stage zero No dependents
++
/ MARC::Indexer

NAME

MARC::Indexer - index MARC records

SYNOPSIS

    $indexer = MARC::Indexer->new(
        'index_points' => [
            { 'name' => 'ctrlnum',
              'tag' => '001' },
            { 'name' => 'title',
              'tag' => '245',
              'extract' => 'subfields:abcdnp',
              'normalize' => [qw(text nfd uc)],
            },
            { 'name' => 'subjtopic',
              'tag' => '650',
              'repeatable' => 1,
              ...
            },
            ...
        ],
    );
    $idx = $indexer->index($marc);
    $idx_title = $idx->{'title'};