File Coverage

blib/lib/MARC/File/JSON.pm

Criterion	Covered	Total	%
statement	39	40	97.5
branch	5	6	83.3
condition	2	3	66.6
subroutine	13	13	100.0
pod	1	4	25.0
total	60	66	90.9

package MARC::File::JSON;

# ABSTRACT: read/write MARC data into JSON format

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

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

# MARC::Record -> JSON
sub encode {
    my ($record, $args) = @_;
    return to_json( $record->as_generic, $args );
}

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

    if ( !ref($data) ) {
        $data = from_json( $data, $args );
    }
    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__