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

View of /FigKernelPackages/CorrTableEntry.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (as text) (annotate)
Wed Nov 17 21:10:40 2010 UTC (8 years, 11 months ago) by olson
Branch: MAIN
CVS Tags: mgrast_dev_04082011, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_dev_04132011, mgrast_dev_04012011, myrast_33, mgrast_dev_04052011, mgrast_dev_02222011
Changes since 1.3: +5 -1 lines
Add num_matching_functions for column 19

package CorrTableEntry;
use strict;

#
# This is a SAS component
#

sub new
{
    my($class, $line) = @_;
    my $l = $line;
    chomp $l;
    return bless [split(/\t/, $l)], $class;
}

# Column-1
sub id1
{
    return $_[0]->[0];
}

# Column-2
sub id2
{
    return $_[0]->[1];
}

# Column-3
sub npairs
{
    return $_[0]->[2];
}

# Column-4
sub pairs
{
    my @pairs = split(/,/, $_[0]->[3]);
    return map { [split(/:/, $_)] } @pairs;
}

# Column-5
sub func1
{
    return $_[0]->[4];
}

# Column-6
sub func2
{
    return $_[0]->[5];
}

# Column-7
sub aliases1
{
    return $_[0]->[6];
}

# Column-8
sub aliases2
{
    return $_[0]->[7];
}

# Column-9
sub hitinfo
{
    return $_[0]->[8];
}

# Column-10
sub iden
{
    return $_[0]->[9];
}

# Column-11
sub psc
{
    return $_[0]->[10];
}

# Column-12
sub beg1
{
    return $_[0]->[11];
}

# Column-13
sub end1
{
    return $_[0]->[12];
}

# Column-14
sub ln1
{
    return $_[0]->[13];
}

# Column-14
sub len1
{
    return $_[0]->[13];
}

# Column-15
sub beg2
{
    return $_[0]->[14];
}

# Column-16
sub end2
{
    return $_[0]->[15];
}

# Column-17
sub ln2
{
    return $_[0]->[16];
}

# Column-17
sub len2
{
    return $_[0]->[16];
}

# Column-18
sub bsc
{
    return $_[0]->[17];
}

# Column-19
sub num_matching_functions
{
    return $_[0]->[18];
}

1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3