TieCSV - TieCSV documentation

App-CCSV documentation

Contained in the App-CCSV distribution.

Index

NAME
VERSION
DESCRIPTION
SEE ALSO
BUGS
COPYRIGHT & LICENSE

Code Index:

package TieCSV
- TIEHANDLE
- READLINE
__END__
EOF

NAME

App::CCSV::TieCSV.

VERSION

Version 0.01

DESCRIPTION

Helper class for App::CCSV.

SEE ALSO

BUGS

There surely are ...

Please send bug reports or feature requests to Karlheinz Zoechling <kh at ibeatgarry dot com>.

COPYRIGHT & LICENSE

Copyright 2008 Karlheinz Zoechling. All rights reserved.

This is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

App-CCSV documentation

Contained in the App-CCSV distribution.

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__