File Coverage

script/marcvalidate

Criterion	Covered	Total	%
statement	41	45	91.1
branch	9	16	56.2
condition	1	3	33.3
subroutine	7	8	87.5
pod			n/a
total	58	72	80.5

#!/usr/bin/env perl

use strict;
use warnings;

our $VERSION = '0.10';

use Getopt::Long 'HelpMessage';
use MARC::Parser::RAW;
use MARC::Parser::XML;
use MARC::Schema;

GetOptions(
    'file|f=s'   => \my $file,
    'type|t=s'   => \( my $type = 'RAW' ),
    'schema|s=s' => \my $schema_file,
    'help|h'     => sub { HelpMessage() },
) or HelpMessage();

$file = shift unless defined($file);

HelpMessage() unless defined $file and -e $file;

my $schema = MARC::Schema->new({file => $schema_file});

my $parser;
if ( $type eq 'RAW' ) {
    $parser = MARC::Parser::RAW->new($file);
}
elsif ( $type eq 'XML' ) {
    $parser = MARC::Parser::XML->new($file);
}
else {
    print q{type '$type' not supported. Use 'RAW' or 'XML'};
}

my $record_count = 0;
while ( my $record = $parser->next() ) {
    $record_count++;
    my $id = _id($record);
    my @error = $schema->check($record);
    if (@error > 0) {
        foreach my $error (@error) {
            if (exists $error->{value}) {
                print qq{$id\t$error->{tag}\t$error->{error}\t$error->{value}\n};
            } else {
                print qq{$id\t$error->{tag}\t$error->{error}\t\n};
            }
        }
    }
}

sub _id {
    my ($record) = @_;
    my ($id) = map { $_->[-1] } grep { $_->[0] eq '001' } @$record;
    $id = defined $id ? $id : $record_count;
    return $id;
}

__END__