CPAN::Groonga

ABSTRACT: ARK Management
$Koha::Contrib::ARK::VERSION = '1.1.2';
use Moose;
use Modern::Perl;
use JSON;
use DateTime;
use Try::Tiny;
use Koha::Contrib::ARK::Reader;
use Koha::Contrib::ARK::Writer;
use

cord} = $record;
    $current->{biblionumber} = $biblio->biblionumber;
    $current->{before} = tojson($record) if $self->debug;
    $current->{ark} = $self->build_ark($biblio->biblionumber, $record);

 dump_explain {
    my $self = shift;

    open my $fh, '>:encoding(utf8)', 'koha-ark.json';
    print $fh to_json($self->explain, { pretty => 1 });
}


sub BUILD {
    my $self = shift;

    my $tz =