package X::CSV;
use strict;
use warnings;
use Text::CSV;


=head1 NAME
    X::CSV - parse Comma Seperated Value files


=head1 SYNOPSIS

    #create CSV parse
    my $csvParser = X::CSV->new( data_file => $file_path);

    eval{
       my $data = $csvParser->parse();
    };

    if($@){
       die($@);
    }

sub parse(){
	my $self = shift
	my (@parsed, @csv_source);


    #open the csv file
    open(CSV_SOURCE , "<" . $self->data_file) or die "...";
	....
	....
}