0
|
1 package CPT::Parameter::Option::Genomic_Tag;
|
|
2 use Moose;
|
|
3 with 'CPT::Parameter::Option';
|
|
4
|
|
5 my @validKeys = ( "-10_signal", "-35_signal", "3'UTR", "5'UTR", "CAAT_signal", "CDS", "C_region", "D-loop", "D_segment", "GC_signal", "J_segment", "LTR", "N_region", "RBS", "STS", "S_region", "TATA_signal", "V_region", "V_segment", "assembly_gap", "attenuator", "enhancer", "exon", "gap", "gene", "iDNA", "intron", "mRNA", "mat_peptide", "misc_RNA", "misc_binding", "misc_difference", "misc_feature", "misc_recomb", "misc_signal", "misc_structure", "mobile_element", "modified_base", "ncRNA", "old_sequence", "operon", "oriT", "polyA_signal", "polyA_site", "precursor_RNA", "prim_transcript", "primer_bind", "promoter", "protein_bind", "rRNA", "rep_origin", "repeat_region", "sig_peptide", "source", "stem_loop", "tRNA", "terminator", "tmRNA", "transit_peptide", "unsure", "variation", "whole", "all" );
|
|
6 my %validKeySet = map { $_ => $_ } @validKeys;
|
|
7
|
|
8 has 'options' => ( is => 'rw', isa => 'HashRef', default => sub { \%validKeySet } );
|
|
9
|
|
10
|
|
11 sub getopt_format {
|
|
12 return '=s';
|
|
13 }
|
|
14
|
|
15 no Moose;
|
|
16 1;
|
|
17
|
|
18 __END__
|
|
19
|
|
20 =pod
|
|
21
|
|
22 =encoding UTF-8
|
|
23
|
|
24 =head1 NAME
|
|
25
|
|
26 CPT::Parameter::Option::Genomic_Tag
|
|
27
|
|
28 =head1 VERSION
|
|
29
|
|
30 version 1.99.4
|
|
31
|
|
32 =head2 getopt_format
|
|
33
|
|
34 Returns the format character for a given CPT::Parameter::* type
|
|
35
|
|
36 =head1 AUTHOR
|
|
37
|
|
38 Eric Rasche <rasche.eric@yandex.ru>
|
|
39
|
|
40 =head1 COPYRIGHT AND LICENSE
|
|
41
|
|
42 This software is Copyright (c) 2014 by Eric Rasche.
|
|
43
|
|
44 This is free software, licensed under:
|
|
45
|
|
46 The GNU General Public License, Version 3, June 2007
|
|
47
|
|
48 =cut
|