Mercurial > repos > cpt > cpt_psm_comparison_table
view cpt_psm_comparison_table/lib/CPT/Filetype/fasta.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::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