File Coverage

blib/lib/MARC/Utils/MARC2Pairs.pm

Criterion	Covered	Total	%
statement	49	49	100.0
branch	10	10	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	67	69	97.1

#---------------------------------------------------------------------
package MARC::Utils::MARC2Pairs;

use 5.008002;
use strict;
use warnings;

our $VERSION = '0.02';

our (@ISA, @EXPORT_OK);
BEGIN {
    require Exporter;
    @ISA = qw(Exporter);
    @EXPORT_OK = qw( marc2pairs pairs2marc );
}

use MARC::Record;
use Data::Pairs qw( pairs_add pairs_get_array );

#---------------------------------------------------------------------
sub marc2pairs {
    my( $marc_record ) = @_;

    my $pairs = [];

    for my $leader ( $marc_record->leader() ) {
        pairs_add( $pairs, leader => $leader );
    }

    for my $field ( $marc_record->fields() ) {

        my $ftag = $field->tag();

        if( $field->is_control_field() ) {
            pairs_add( $pairs, $ftag => $field->data() );
        }

        else {
            my $subpairs = [];

            for my $i ( 1, 2 ) {
                pairs_add( $subpairs, "ind$i" => $field->indicator( $i ) );
            }

            for my $subfield ( $field->subfields ) {
                pairs_add( $subpairs, $subfield->[0] => $subfield->[1] );
            }

            pairs_add( $pairs, $ftag => $subpairs );
        }
    }

    $pairs;  # returned
}

#---------------------------------------------------------------------
sub pairs2marc {
    my( $pairs ) = @_;

    my $marc_record = MARC::Record->new();

    for my $field ( pairs_get_array( $pairs ) ) {

        my( $ftag, $fdata ) = %$field;

        if( $ftag eq 'leader' ) {
            $marc_record->leader( $fdata );
        }

        elsif( ref $fdata ) {
            my( $ind1, $ind2, @subfields );

            for my $subfield ( pairs_get_array( $fdata ) ) {
                my( $sftag, $sfdata ) = %$subfield;
                if(    $sftag eq 'ind1' ) { $ind1 = $sfdata }
                elsif( $sftag eq 'ind2' ) { $ind2 = $sfdata }
                else { push @subfields, $sftag, $sfdata }
            }
            $marc_record->append_fields( MARC::Field->new(
                $ftag, $ind1, $ind2, @subfields ) );
        }

        # control field
        else {
            $marc_record->append_fields( MARC::Field->new( $ftag, $fdata ) );
        }
    }

    $marc_record;  #returned
}

1;
__END__