File Coverage

blib/lib/Text/CSV/Field.pm

Criterion	Covered	Total	%
statement	4	63	6.3
branch	0	20	0.0
condition			n/a
subroutine	2	6	33.3
pod	2	4	50.0
total	8	93	8.6

package Text::CSV::Field;
use strict;

BEGIN {
    $Text::CSV::Field::VERSION = '1.01';
}


sub new {
  my ($class,$file,$sep)  = @_;

  open(FILE,$file) or die "can't open $file $!";
  defined($sep) or die "Missing field separator parameter\n";
  $sep or die "Empty field separator parameter\n";

  my $self = {_filename=>$file,_sep=>$sep};
  my @data = ();
  # open file
  while()  {
    chomp;
    push(@data,$_);
  }
  $self->{_data} = \@data;
  # check sep

  bless($self,$class);
  return $self;
}

sub check_file	{
  my ($self) = shift;
  my $num_fields = 0;
  my $err_string  = undef;
  my @data = @{$self->{_data}};
  if (!@data)  {
     $err_string .= "File is empty\n";
     print "$err_string\n";
     exit();
  }
  if (@data == 1)  {
     $err_string .= "no data found\n";
     print "$err_string\n";
     exit();
  }
  for(my $i=0;  $i < @data; $i++)  {
    my $temp = 0;
    my @temp_arr  = split($self->{_sep},${$self->{_data}}[$i]);
    $temp = @temp_arr;
    if ($i == 0)  {
      $num_fields = $temp;
    }
    else  {
      if ($num_fields != $temp)  {
        $err_string .= "Field number mismatch line# " . ($i+1) . " in " . $self->{_filename} . "\n";
      }
    }
  }
  if ($err_string)  {
    print "$err_string\n";
    exit();
  }
}

sub setdatafields{
  my ($self) = shift;
  $self->check_file();

  $self->{_total_number} = @{$self->{_data}};

  my @fieldnames = ();
  for(my $j = 0; $j < @{$self->{_data}}; $j++)  {
    my @recs  = split(/$self->{_sep}/,${$self->{_data}}[$j]);
    for(my $k = 0; $k < @recs; $k++)  {
      if ($j == 0)  {
        push(@fieldnames,$recs[$k]);
        $self->{$recs[$k]} = [];
        #push(@{$self->{$fieldnames[$k]}},$recs[$k]);
      }
      else  {
         push(@{$self->{$fieldnames[$k]}},$recs[$k]);
      }
    }
  }
}

sub getfield{
  my $self = shift;
  my $field = shift;
  $field or die "Missing field input\n";
  $self->setdatafields;
  $field =~ tr/a-z/A-Z/;
  return @{$self->{$field}};
}

1;
__END__