Catmandu::Fix::Bind::mab_each - a binder that loops over MAB2 fields

       Johann Rolschewski <jorol@cpan.org>

       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.

perl v5.36.0                                       2022-12-04                 Catmandu::Fix::Bind::mab_each(3pm)

       The mab_each binder will iterate over each individual MAB2 field and execute the fixes only in context
       over each individual field.

       If a MAB2 record contains:

           705    $a775.05$c775
           705    $a702.08$c702

       then the fix

           do mab_each()
               mab_map("705a",subject.$append)
           end

       will have the same effect as

           mab_map("705a",subject.$append)

       because "mab_map" by default loops over all repeated MAB2 fields. But the "mab_each" bind has the
       advantage to process fields in context. E.g. to only map fields where the subfield $c doesn't contain
       '702' you can write:

           do mab_each()
               unless mab_match("705","702")
                   mab_map("705",subject.$append)
               end
           end

       Catmandu::Fix::Bind::mab_each - a binder that loops over MAB2 fields

       Catmandu::Fix::Bind

           # Only add field 331 to the title when field 412 matches 'Heise'
           do mab_each()
               if mab_match("412","Heise")
                   mab_map("331",title)
               end
           end

           # Delete all the 700 subject fields
           do mab_each()
               if mab_match("700",".*")
                   reject()
               end
           end