Mercurial > repos > cpt > cpt_psm_comparison_table
view cpt_psm_comparison_table/lib/CPT/Filetype/embl.pm @ 0:b8b8b52904a5 draft
Uploaded
author | cpt |
---|---|
date | Tue, 05 Jul 2022 05:42:59 +0000 |
parents | |
children |
line wrap: on
line source
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