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

Annotation of /FigKernelPackages/CorrTableEntry.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (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 : olson 1.2 my @pairs = split(/,/, $_[0]->[3]);
38 :     return map { [split(/:/, $_)] } @pairs;
39 : olson 1.1 }
40 :    
41 :     # Column-5
42 :     sub func1
43 :     {
44 :     return $_[0]->[4];
45 :     }
46 :    
47 :     # Column-6
48 :     sub func2
49 :     {
50 :     return $_[0]->[5];
51 :     }
52 :    
53 :     # Column-7
54 :     sub aliases1
55 :     {
56 :     return $_[0]->[6];
57 :     }
58 :    
59 :     # Column-8
60 :     sub aliases2
61 :     {
62 :     return $_[0]->[7];
63 :     }
64 :    
65 :     # Column-9
66 :     sub hitinfo
67 :     {
68 :     return $_[0]->[8];
69 :     }
70 :    
71 :     # Column-10
72 :     sub iden
73 :     {
74 :     return $_[0]->[9];
75 :     }
76 :    
77 :     # Column-11
78 :     sub psc
79 :     {
80 :     return $_[0]->[10];
81 :     }
82 :    
83 :     # Column-12
84 :     sub beg1
85 :     {
86 :     return $_[0]->[11];
87 :     }
88 :    
89 :     # Column-13
90 :     sub end1
91 :     {
92 :     return $_[0]->[12];
93 :     }
94 :    
95 :     # Column-14
96 : olson 1.2 sub ln1
97 : olson 1.1 {
98 :     return $_[0]->[13];
99 :     }
100 :    
101 : olson 1.3 # Column-14
102 :     sub len1
103 :     {
104 :     return $_[0]->[13];
105 :     }
106 :    
107 : olson 1.1 # Column-15
108 :     sub beg2
109 :     {
110 :     return $_[0]->[14];
111 :     }
112 :    
113 :     # Column-16
114 : olson 1.2 sub end2
115 : olson 1.1 {
116 :     return $_[0]->[15];
117 :     }
118 :    
119 :     # Column-17
120 : olson 1.2 sub ln2
121 : olson 1.1 {
122 :     return $_[0]->[16];
123 :     }
124 :    
125 : olson 1.3 # Column-17
126 :     sub len2
127 :     {
128 :     return $_[0]->[16];
129 :     }
130 :    
131 : olson 1.1 # Column-18
132 :     sub bsc
133 :     {
134 :     return $_[0]->[17];
135 :     }
136 :    
137 :    
138 :    
139 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3