[Bio] / FigKernelPackages / CorrTableEntry.pm Repository:
ViewVC logotype

Annotation of /FigKernelPackages/CorrTableEntry.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : olson 1.1 package CorrTableEntry;
2 :     use strict;
3 :    
4 :     #
5 :     # This is a SAS component
6 :     #
7 :    
8 :     sub new
9 :     {
10 :     my($class, $line) = @_;
11 :     my $l = $line;
12 :     chomp $l;
13 :     return bless [split(/\t/, $l)], $class;
14 :     }
15 :    
16 :     # Column-1
17 :     sub id1
18 :     {
19 :     return $_[0]->[0];
20 :     }
21 :    
22 :     # Column-2
23 :     sub id2
24 :     {
25 :     return $_[0]->[1];
26 :     }
27 :    
28 :     # Column-3
29 :     sub npairs
30 :     {
31 :     return $_[0]->[2];
32 :     }
33 :    
34 :     # Column-4
35 :     sub pairs
36 :     {
37 :     return $_[0]->[3];
38 :     }
39 :    
40 :     # Column-5
41 :     sub func1
42 :     {
43 :     return $_[0]->[4];
44 :     }
45 :    
46 :     # Column-6
47 :     sub func2
48 :     {
49 :     return $_[0]->[5];
50 :     }
51 :    
52 :     # Column-7
53 :     sub aliases1
54 :     {
55 :     return $_[0]->[6];
56 :     }
57 :    
58 :     # Column-8
59 :     sub aliases2
60 :     {
61 :     return $_[0]->[7];
62 :     }
63 :    
64 :     # Column-9
65 :     sub hitinfo
66 :     {
67 :     return $_[0]->[8];
68 :     }
69 :    
70 :     # Column-10
71 :     sub iden
72 :     {
73 :     return $_[0]->[9];
74 :     }
75 :    
76 :     # Column-11
77 :     sub psc
78 :     {
79 :     return $_[0]->[10];
80 :     }
81 :    
82 :     # Column-12
83 :     sub beg1
84 :     {
85 :     return $_[0]->[11];
86 :     }
87 :    
88 :     # Column-13
89 :     sub end1
90 :     {
91 :     return $_[0]->[12];
92 :     }
93 :    
94 :     # Column-14
95 :     sub len1
96 :     {
97 :     return $_[0]->[13];
98 :     }
99 :    
100 :     # Column-15
101 :     sub beg2
102 :     {
103 :     return $_[0]->[14];
104 :     }
105 :    
106 :     # Column-16
107 :     sub en2
108 :     {
109 :     return $_[0]->[15];
110 :     }
111 :    
112 :     # Column-17
113 :     sub len2
114 :     {
115 :     return $_[0]->[16];
116 :     }
117 :    
118 :     # Column-18
119 :     sub bsc
120 :     {
121 :     return $_[0]->[17];
122 :     }
123 :    
124 :    
125 :    
126 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3