--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/CPT/Filetype/embl.pm	Mon Jun 05 02:50:07 2023 +0000
@@ -0,0 +1,54 @@
+package CPT::Filetype::embl;
+no warnings;
+use Moose;
+with 'CPT::Filetype';
+
+sub score {
+	my ($self) = @_;
+	my $first_line = ${$self->lines()}[0];
+	my @embl_identifiers = (
+		'FT', 'FH', 'SQ', 'DE', 'AC', 'PA', 'SV', 'DT', 'KW',
+		'OS', 'OC', 'OX', 'R ', ''  , 'DR', 'CC', 'CO', 'XX',
+	);
+	my %embl_id_map = map { $_ => 1 } @embl_identifiers;
+	my $embl_score = 0;
+	foreach(@{$self->lines()}){
+		$embl_score++ if($embl_id_map{substr($_,0,2)});
+	}
+	return $embl_score/10;
+}
+
+sub name {
+	return 'embl';
+}
+
+no Moose;
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPT::Filetype::embl
+
+=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