File Coverage

blib/lib/MARC/File/JSON.pm

Criterion	Covered	Total	%
statement	45	47	95.7
branch	6	10	60.0
condition	2	3	66.6
subroutine	14	14	100.0
pod	1	4	25.0
total	68	78	87.1

package MARC::File::JSON;

# ABSTRACT: read/write MARC data into JSON format

use strict;
use warnings;
use 5.010;
use JSON qw(to_json from_json encode_json decode_json);
use JSON::Streaming::Reader;
use MARC::Record::Generic;
use MARC::Record;
use MARC::File;

use vars qw( @ISA $VERSION );
$VERSION = '0.004';
push @ISA, 'MARC::File';

# MARC::Record -> JSON
sub encode {
    my ($record, $args) = @_;
    my $json;
    if ( defined $args ) {
        $json = to_json( $record->as_generic, $args );
    } else {
        $json = encode_json( $record->as_generic);
        utf8::upgrade($json);
    }
    return $json;
}

# JSON -> MARC::Record
sub decode {
    my ($self, $data, $args) = @_;

    if ( !ref($data) ) {
        $data = defined $args
            ? from_json( $data, $args )
            : decode_json( $data );
    }
    return MARC::Record->new_from_generic( $data );
}

sub _next {
    my $self = shift;
    my $jsonr
        = $self->{jsonr} //= JSON::Streaming::Reader->for_stream($self->{fh});
    my $token = $jsonr->get_token;
    if ($token->[0] eq 'start_array') {
        $token = $jsonr->get_token;
    }
    return ($token->[0] eq 'end_array') ? undef : $jsonr->slurp;
}

### Methods injected into MARC::Record

sub MARC::Record::new_from_json {
    my ($class, $json, $args) = @_;
    return __PACKAGE__->decode( from_json($json, $args) );
}

sub MARC::Record::as_json {
    my ($self, $args) = @_;
    return encode( $self, $args );
}

1;

__END__