File Coverage

blib/lib/MARC/Record/Generic.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	39	41	95.1

package MARC::Record::Generic;

# ABSTRACT: read/write MARC data into Perl primitives

use strict;
use warnings;
use MARC::Record;
use MARC::Field;

our $VERSION = 0.001;

# MARC::Record -> generic hash
sub MARC::Record::as_generic {
    my $self = shift;

    return {
        leader => $self->leader,
        fields => [ map {
            $_->tag,
            ( $_->is_control_field
              ? $_->data
              : {
                  ind1 => $_->indicator(1),
                  ind2 => $_->indicator(2),
                  subfields => [ map { ($_->[0], $_->[1]) } $_->subfields ],
                }
            )
        } $self->fields ],
    };
}

# generic hash -> MARC::Record
sub MARC::Record::new_from_generic {
    my ($class, $data) = @_;
    my $record = MARC::Record->new();
    $record->leader( $data->{leader} );

    my @fields;
    @_ = @{$data->{fields}};
    while ( @_ ) {
        my ($tag, $val) = (shift, shift);
        my @attrs
            = ref($val) eq 'HASH'
                ? ( $val->{ind1}, $val->{ind2}, @{$val->{subfields}} )
                : ( $val );
        push @fields, MARC::Field->new( $tag, @attrs );
    }

    $record->append_fields( @fields );
    return $record;
}

1;

__END__