Mercurial > repos > cpt > cpt_psm_recombine
view lib/CPT/Filetype/fasta.pm @ 2:d09346afadfa draft default tip
planemo upload commit f33bdf952d796c5d7a240b132af3c4cbd102decc
author | cpt |
---|---|
date | Fri, 05 Jan 2024 05:56:18 +0000 |
parents | 97ef96676b48 |
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