# Parse_Line.pm: Allows predict.pl to bypass parsing input lines

use warnings;

package Parse_Line;
use base qw(Exporter);
@EXPORT = qw(gene_name_data expression_data quality_data);

use strict;
use Carp;

sub gene_name_data {
   (my $line) = @_;
   chomp $line;
   my @items = split("\t", $line);
   return $items[1];
}

sub expression_data {
   (my $line) = @_;
   chomp $line;
   my @items = split("\t", $line);
   my @expression;
   for (my $i = 2;
        $i < @items;
        $i = $i + 2) { 
      my $j = $i/2;     
      $expression[$j] = $items[$i];
   }
   return @expression;
}

sub quality_data {
   (my $line) = @_;
   chomp $line;
   my @items = split("\t", $line);
   my @quality;
   for (my $i = 2;
        $i < @items;
        $i = $i + 2) { 
      my $j = $i/2;     
      $quality[$j] = $items[$i+1];
   }
   return @quality;
}

1