#!/usr/bin/env perl
#Copyright (c) 2010 Joachim Bargsten <code at bargsten dot org>. All rights reserved.

use warnings;
use strict;

use 5.010;
use Carp;

use Bio::Gonzales::Seq::Validate::fasta;

my $file = shift;
die "$file is no file" unless ( -f $file );

open my $fh, '<', $file or croak "Can't open filehandle: $!";
my $z = Bio::Gonzales::Seq::Validate::fasta->new( fh => $fh );
my $errors = $z->validate;

my @lines = sort { $a <=> $b } keys %{$errors};
for my $l (@lines) {
    my $e = $errors->{$l};
    say "line $l:";
    map { say "\t$_" } @{$e};

}
