File Coverage

blib/lib/App/CCSV/TieCSV.pm

Criterion	Covered	Total	%
statement	7	14	50.0
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod			n/a
total	9	19	47.3

package TieCSV;

use strict;

require Tie::Handle;

our @ISA = qw(Tie::Handle);

our $VERSION = 0.01;

my $csv;
sub TIEHANDLE
{
	my $class = shift;
	$csv = shift;
	my $fh = local *ARGV;
	bless \$fh, $class;
}

sub READLINE
{
	my $self = shift;
	my $line = <$self>;
	if ($line)
	{
		my $status = $csv->parse($line);
		@::f = $csv->fields();
		return $line;
	}
	return;
}

1;

__END__