SYNOPSIS

# Copy all 245 subfields into the my.title hash
mab_map('245','my.title');
# Copy the 245-$a$b$c subfields into the my.title hash
mab_map('245abc','my.title');
# Copy the 100 subfields into the my.authors array
mab_map('100','my.authors.$append');

# Add the 710 subfields into the my.authors array
mab_map('710','my.authors.$append');
# Copy the 600-$x subfields into the my.subjects array while packing each into a genre.text hash
mab_map('600x','my.subjects.$append', -in => 'genre.text');
# Copy the 008 characters 35-35 into the my.language hash
mab_map('008_/35-35','my.language');
# Copy all the 600 fields into a my.stringy hash joining them by '; '
mab_map('600','my.stringy', -join => '; ');
# When 024 field exists create the my.has024 hash with value 'found'
mab_map('024','my.has024', -value => 'found');
# Do the same examples now with the fields in 'record2'
mab_map('245','my.title', -record => 'record2');

AUTHOR

Johann Rolschewski <[email protected]>

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.