App-MARC-Validator

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: App-MARC-Validator
no_index:
  directory:
    - inc
    - t
    - xt
requires:
  Class::Utils: 0
  Cpanel::JSON::XS: 0
  Data::MARC::Validator::Report: 0.02
  DateTime: 0
  English: 0
  Getopt::Std: 0
  IO::Barf: 0
  IO::Uncompress::AnyUncompress: 0
  List::Util: 1.33
  MARC::Batch: 0
  MARC::File::XML: 1.0.4
  MARC::Validator: 0.14

Makefile.PL  view on Meta::CPAN

author_requires 'Test::NoWarnings' => 0;
author_requires 'Test::Pod' => 0;
author_requires 'Test::Pod::Coverage' => 0;
install_script 'bin/marc-validator';
license 'bsd';
name 'App-MARC-Validator';
perl_version 5.006;
readme_from 'bin/marc-validator';
recursive_author_tests('xt');
requires 'Class::Utils' => 0;
requires 'Cpanel::JSON::XS' => 0;
requires 'Data::MARC::Validator::Report' => 0.02;
requires 'DateTime' => 0;
requires 'English' => 0;
requires 'Getopt::Std' => 0;
requires 'IO::Barf' => 0;
requires 'IO::Uncompress::AnyUncompress' => 0;
requires 'List::Util' => 1.33;
requires 'MARC::Batch' => 0;
requires 'MARC::File::XML' => '1.0.4';
requires 'MARC::Validator' => 0.14;

Validator/Utils.pm  view on Meta::CPAN

package App::MARC::Validator::Utils;

use base qw(Exporter);
use strict;
use warnings;

use Cpanel::JSON::XS;
use Cpanel::JSON::XS::Type;
use Readonly;

Readonly::Array our @EXPORT_OK => qw(obj_to_json);

our $VERSION = 0.08;

sub obj_to_json {
	my ($self, $report) = @_;

	my $struct_hr = {};

Validator/Utils.pm  view on Meta::CPAN

			foreach my $error (@{$plugin_errors->errors}) {
				push @{$not_valid_hr->{$plugin_errors->record_id}}, {
					'error' => $error->error,
					'params' => $error->params,
				};
			}
		}
	}

	# JSON output.
	my $j = Cpanel::JSON::XS->new;
	if ($self->{'_opts'}->{'p'}) {
		$j = $j->pretty;
	}
	my $json = $j->canonical(1)->encode($struct_hr);

	return $json;
}

1;