File Coverage

blib/lib/App/CCSV.pm

Criterion	Covered	Total	%
statement	28	57	49.1
branch	6	32	18.7
condition	9	34	26.4
subroutine	7	11	63.6
pod	3	3	100.0
total	53	137	38.6

package App::CCSV;

use strict;
use Data::Dumper;
use App::CCSV::TieCSV;
use Text::CSV_XS;
use Config::General;
require Exporter;
our @ISA = qw(Exporter);

our $csv;
our $csvout;

our @EXPORT = qw(cprint csay parse $csv);

our $VERSION = 0.02;

sub import
{
	my $name = shift;
	_init(@_);
	__PACKAGE__->export_to_level(1,1,qw(csay cprint parse $csv));
	tie *ARGV, 'TieCSV',$csv;
}

sub _init
{
	my $out = length($_[-1] || '') > 1 && $#_ > 0 ? pop : ''; # last argument length > 1 means csvout config section if more than 1 argument
	my ($quote,$sep,$escape,$eol) = @_;
	#print join "|", ($quote, $sep, $escape, $eol,"\n");
	my $cfgfile = $ENV{CCSVCONF} || $ENV{HOME} || '~';
	$cfgfile = $cfgfile . '/.CCSVConf' unless $ENV{CCSVCONF};
	if (length($quote || '') <= 1) # length > 1 specifies config section
	{
		$csv = Text::CSV_XS->new( {
        	        quote_char => $quote || '"',
                	sep_char => $sep || ',',
	                escape_char => $escape || '"',
        	        eol => $eol || '',
			binary => 1,
       		} );
	} else
	{
		$csv = Text::CSV_XS->new(); # config later from cfgfile
	}
	if (-r $cfgfile)
	{
		my $conf = new Config::General($cfgfile);
		my %config = $conf->getall;
		# CSV:
		if (!@_ || ($#_ == 0 and $quote eq '')) # no override(s) from command line
		{
			_confme($csv,$config{CCSV}) if $config{CCSV};
		} elsif (length($quote) > 1) # config section
		{
				die "no config section with name <$quote> could be found in $cfgfile\n" unless $config{CCSV}->{names}->{$quote};
				_confme($csv,$config{CCSV}->{names}->{$quote});
		}

		_confme($csv,$config{CCSV}->{overrideall}) if $config{CCSV}->{overrideall};
		# different CSVOUT?
		if ($out) # get from config section
		{
			 die "no config section with name <$out> could be found in $cfgfile\n" unless $config{CCSV}->{names}->{$out};
			 $csvout = Text::CSV_XS->new();
			 _confme($csvout,$config{CCSV}->{names}->{$out});
		} elsif ($config{CCSV}->{out})
		{
			$csvout = Text::CSV_XS->new();
			_confme($csvout,$config{CCSV}->{out});
		}
	} else # die if config file is needed but not present:
	{
		die "1st param char length > 1 means input config section, but no readable config file could be found at $cfgfile \n" if (length($quote || '') > 1);
		 die "last param length > 1 means output config section, but no readable config file could be found at $cfgfile\n" if (length($out || '') > 1);
	}
}

sub _confme
{
	# ($csv,$conf);
	my $conf = $_[1];
	for my $key (keys %{$conf})
	{
	 	next if ($key eq 'overrideall' or $key eq 'out' or $key eq 'names');
		$_[0]->$key($conf->{$key});
	}
}

sub cprint
{
	if ($csvout)
	{
		$csvout->combine(@_);
		print $csvout->string();

	} else
	{
		$csv->combine(@_);
		print $csv->string();
	}
}

sub csay
{
	cprint(@_);
	print $/;
}

sub parse
{
	my $line = shift;
	$csv->parse($line || $_);
	return $csv->fields();
}

1;


__END__