File Coverage

blib/lib/Bio/Phylo/Matrices/Datatype/Protein.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Bio::Phylo::Matrices::Datatype::Protein;
2 1     1   7 use strict;
  1         2  
  1         31  
3 1     1   5 use base 'Bio::Phylo::Matrices::Datatype';
  1         3  
  1         222  
4             our ( $LOOKUP, $MISSING, $GAP );
5              
6             =head1 NAME
7              
8             Bio::Phylo::Matrices::Datatype::Protein - Validator subclass,
9             no serviceable parts inside
10              
11             =head1 DESCRIPTION
12              
13             The Bio::Phylo::Matrices::Datatype::* classes are used to validate data
14             contained by L and L
15             objects.
16              
17             =cut
18              
19             # podinherit_insert_token
20              
21             =head1 SEE ALSO
22              
23             There is a mailing list at L
24             for any user or developer questions and discussions.
25              
26             =over
27              
28             =item L
29              
30             This class subclasses L.
31              
32             =item L
33              
34             Also see the manual: L and L.
35              
36             =back
37              
38             =head1 CITATION
39              
40             If you use Bio::Phylo in published research, please cite it:
41              
42             B, B, B, B
43             and B, 2011. Bio::Phylo - phyloinformatic analysis using Perl.
44             I B<12>:63.
45             L
46              
47             =head1 FORUM
48              
49             CPAN hosts a discussion forum for Bio::Phylo. If you have trouble
50             using this module the discussion forum is a good place to start
51             posting questions (NOT bug reports, see below):
52             L
53              
54             =cut
55              
56             $LOOKUP = {
57             'A' => ['A'],
58             'B' => [ 'D', 'N' ],
59             'C' => ['C'],
60             'D' => ['D'],
61             'E' => ['E'],
62             'F' => ['F'],
63             'G' => ['G'],
64             'H' => ['H'],
65             'I' => ['I'],
66             'K' => ['K'],
67             'L' => ['L'],
68             'M' => ['M'],
69             'N' => ['N'],
70             'P' => ['P'],
71             'Q' => ['Q'],
72             'R' => ['R'],
73             'S' => ['S'],
74             'T' => ['T'],
75             'U' => ['U'],
76             'V' => ['V'],
77             'W' => ['W'],
78             'X' => ['X'],
79             'Y' => ['Y'],
80             'Z' => [ 'E', 'Q' ],
81             '*' => ['*'],
82             };
83             $MISSING = '?';
84             $GAP = '-';
85             1;