#!/usr/bin/perl

use strict;
use warnings;
use Text::BibTeX;
use Text::BibTeX::Validate qw( validate_BibTeX );

@ARGV = ( '-' ) unless @ARGV;

for my $filename (@ARGV) {
    my $bibfile = Text::BibTeX::File->new( $filename )
        || die "$filename: $!\n";
    while( my $entry = Text::BibTeX::Entry->new( $bibfile ) ) {
        local $SIG{__WARN__} = sub {
            warn "$0: $filename $entry->{key}: " . $_[0];
        };

        validate_BibTeX( $entry );
    }
}
