0
|
1
|
|
2 package Bio::Pfam::HMM::HMMMatch;
|
|
3
|
|
4 use strict;
|
|
5 use warnings;
|
|
6
|
|
7 use Moose;
|
|
8 use Moose::Util::TypeConstraints;
|
|
9
|
|
10
|
|
11 subtype 'evalue'
|
|
12 => as Str
|
|
13 => where { $_ =~ m/^(\d+(\.\d+){0,1}e[+|-]\d+|\d+\.\d+|\d+)$/ }
|
|
14 => message { "$_ does not look like an evalue" };
|
|
15
|
|
16 has 'evalue' => (
|
|
17 isa => 'evalue',
|
|
18 is => 'rw',
|
|
19 required => 1
|
|
20 );
|
|
21
|
|
22 has 'bits' => (
|
|
23 isa => 'Str',
|
|
24 is => 'rw',
|
|
25 required => 1
|
|
26 );
|
|
27
|
|
28 has 'name' => (
|
|
29 isa => 'Str',
|
|
30 is => 'rw',
|
|
31 required => 1
|
|
32 );
|
|
33
|
|
34 has bias => (
|
|
35 isa => 'Num',
|
|
36 is => 'rw'
|
|
37 );
|
|
38
|
|
39 __PACKAGE__->meta->make_immutable;
|
|
40
|
|
41 =head1 COPYRIGHT
|
|
42
|
|
43 Copyright (c) 2007: Genome Research Ltd.
|
|
44
|
|
45 Authors: Rob Finn (rdf@sanger.ac.uk), John Tate (jt6@sanger.ac.uk)
|
|
46
|
|
47 This is free software; you can redistribute it and/or modify it under
|
|
48 the terms of the GNU General Public License as published by the Free Software
|
|
49 Foundation; either version 2 of the License, or (at your option) any later
|
|
50 version.
|
|
51
|
|
52 This program is distributed in the hope that it will be useful, but WITHOUT
|
|
53 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
54 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
|
55 details.
|
|
56
|
|
57 You should have received a copy of the GNU General Public License along with
|
|
58 this program. If not, see <http://www.gnu.org/licenses/>.
|
|
59
|
|
60 =cut
|
|
61
|
|
62 1;
|