Koha-Contrib-ARK

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

license: gpl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Koha-Contrib-ARK
requires:
  DateTime: '0'
  Getopt::Long: '0'
  JSON: '0'
  MARC::Moose::Record: '0'
  Modern::Perl: '0'
  Moose: '0'
  Moose::Role: '0'
  Moose::Util::TypeConstraints: '0'
  MooseX::RW::Reader: '0'
  MooseX::RW::Writer: '0'
  Pod::Usage: '0'
  Term::ProgressBar: '0'
  Try::Tiny: '0'
resources:
  repository: http://git.tamil.fr/git/Koha-Contrib-ARK

Makefile.PL  view on Meta::CPAN

  "EXE_FILES" => [
    "bin/koha-ark"
  ],
  "LICENSE" => "gpl",
  "NAME" => "Koha::Contrib::ARK",
  "PREREQ_PM" => {
    "DateTime" => 0,
    "Getopt::Long" => 0,
    "JSON" => 0,
    "MARC::Moose::Record" => 0,
    "Modern::Perl" => 0,
    "Moose" => 0,
    "Moose::Role" => 0,
    "Moose::Util::TypeConstraints" => 0,
    "MooseX::RW::Reader" => 0,
    "MooseX::RW::Writer" => 0,
    "Pod::Usage" => 0,
    "Term::ProgressBar" => 0,
    "Try::Tiny" => 0
  },
  "VERSION" => "1.1.2",

Makefile.PL  view on Meta::CPAN

    "TESTS" => ""
  }
);


my %FallbackPrereqs = (
  "DateTime" => 0,
  "Getopt::Long" => 0,
  "JSON" => 0,
  "MARC::Moose::Record" => 0,
  "Modern::Perl" => 0,
  "Moose" => 0,
  "Moose::Role" => 0,
  "Moose::Util::TypeConstraints" => 0,
  "MooseX::RW::Reader" => 0,
  "MooseX::RW::Writer" => 0,
  "Pod::Usage" => 0,
  "Term::ProgressBar" => 0,
  "Try::Tiny" => 0
);

bin/koha-ark  view on Meta::CPAN

#!/usr/bin/perl

package Main;
$Main::VERSION = '1.1.2';
# PODNAME: koha-ark
# ABSTRACT: Manage ARK identifiers in a Koha Catalog

use Modern::Perl;
use Pod::Usage;
use Getopt::Long;
use Koha::Contrib::ARK;

binmode(STDOUT, ':encoding(UTF8)');

my ($help, $verbose, $where, $doit, $debug) = (0, 1, '', 0, 0);
GetOptions( 
    'verbose!' => \$verbose,
    'doit'     => \$doit,

lib/Koha/Contrib/ARK.pm  view on Meta::CPAN

package Koha::Contrib::ARK;
# 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 Koha::Contrib::ARK::Update;
use Koha::Contrib::ARK::Clear;
use Koha::Contrib::ARK::Check;
use Koha::Contrib::ARK::Fix;
use Term::ProgressBar;

lib/Koha/Contrib/ARK/Action.pm  view on Meta::CPAN

package Koha::Contrib::ARK::Action;
# ABSTRACT: ARK Action roles
$Koha::Contrib::ARK::Action::VERSION = '1.1.2';
use Moose::Role;
use Modern::Perl;

requires 'action';

has ark => ( is => 'rw', isa => 'Koha::Contrib::ARK' );


sub action {
    my $self = shift;

    say "action on ARK";

lib/Koha/Contrib/ARK/Check.pm  view on Meta::CPAN

package Koha::Contrib::ARK::Check;
# ABSTRACT: Check Koha ARK field
$Koha::Contrib::ARK::Check::VERSION = '1.1.2';
use Moose;
use Modern::Perl;

with 'Koha::Contrib::ARK::Action';


sub action {
    my $self = shift;
    my $ark = $self->ark;
    my $current = $ark->current;
    my $biblio = $current->{biblio};
    my $record = $biblio->{record};

lib/Koha/Contrib/ARK/Clear.pm  view on Meta::CPAN

package Koha::Contrib::ARK::Clear;
# ABSTRACT: Clear Koha ARK field
$Koha::Contrib::ARK::Clear::VERSION = '1.1.2';
use Moose;
use Modern::Perl;

with 'Koha::Contrib::ARK::Action';


sub action {
    my $self = shift;
    my $ark = $self->ark;
    my $current = $ark->current;
    my $biblio = $current->{biblio};
    my $record = $biblio->{record};

lib/Koha/Contrib/ARK/Fix.pm  view on Meta::CPAN

package Koha::Contrib::ARK::Fix;
# ABSTRACT: Fix Koha ARK field
$Koha::Contrib::ARK::Fix::VERSION = '1.1.2';
use Moose;
use Modern::Perl;

with 'Koha::Contrib::ARK::Action';


sub action {
    my $self = shift;
    my $ark = $self->ark;
    my $current = $ark->current;
    my $biblio = $current->{biblio};
    my $record = $biblio->{record};

lib/Koha/Contrib/ARK/Reader.pm  view on Meta::CPAN

package Koha::Contrib::ARK::Reader;
# ABSTRACT: Read Koha biblio records with/without ARK
$Koha::Contrib::ARK::Reader::VERSION = '1.1.2';
use Moose;
use Moose::Util::TypeConstraints;
use Modern::Perl;
use C4::Context;
use C4::Biblio;
use MARC::Moose::Record;

with 'MooseX::RW::Reader';


has ark => ( is => 'rw', isa => 'Koha::Contrib::ARK' );

lib/Koha/Contrib/ARK/Update.pm  view on Meta::CPAN

package Koha::Contrib::ARK::Update;
# ABSTRACT: Update Koha ARK fields
$Koha::Contrib::ARK::Update::VERSION = '1.1.2';
use Moose;
use Modern::Perl;

with 'Koha::Contrib::ARK::Action';


sub action {
    my $self = shift;
    my $ark = $self->ark;
    my $current = $ark->current;
    my $biblio = $current->{biblio};
    my $record = $biblio->{record};

lib/Koha/Contrib/ARK/Writer.pm  view on Meta::CPAN

package Koha::Contrib::ARK::Writer;
# ABSTRACT: Write biblio records into Koha Catalog
$Koha::Contrib::ARK::Writer::VERSION = '1.1.2';
use Moose;
use Modern::Perl;
use C4::Biblio qw/ ModBiblio /;

with 'MooseX::RW::Writer';


has ark => ( is => 'rw', isa => 'Koha::Contrib::ARK' );


sub write {
    my $self = shift;

xt/01-ark.t  view on Meta::CPAN

use Modern::Perl;
use MARC::Moose::Record;
use MARC::Moose::Field;
use MARC::Moose::Field::Control;
use MARC::Moose::Field::Std;
use MARC::Moose::Parser::Marcxml;
use C4::Context;
use Koha::Contrib::ARK;
use YAML;
use JSON;