package CPT::Filetype::fasta;
no warnings;
use Moose;
with 'CPT::Filetype';

sub score {
	my ($self) = @_;
	my @l = @{$self->lines()};

	for(my $i = 0; $i < scalar(@l) - 1; $i++){
		if(substr($l[$i],0,1) eq '>' && $l[$i+1] =~ /[A-Za-z]/){
			return 1;
		}
	}
	return 0;
}

sub name {
	return 'fasta';
}

no Moose;
1;

__END__

=pod

=encoding UTF-8

=head1 NAME

CPT::Filetype::fasta

=head1 VERSION

version 1.99.4

=head1 AUTHOR

Eric Rasche <rasche.eric@yandex.ru>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2014 by Eric Rasche.

This is free software, licensed under:

  The GNU General Public License, Version 3, June 2007

=cut