#!/usr/bin/perl
use strict;
use warnings;

use Benchmark qw(:all);
my @buffer;

cmpthese( 200, { 'xSV' => \&xSV, 'CSV' => \&CSV_XS } );

sub xSV {
	print STDERR '.';
	use Text::xSV;
	my $xsv = new Text::xSV(filename=>"sample.csv", sep=>';');
	while (my $row = $xsv->get_row) {
		@buffer = @$row; #just a "do something" instruction
	}
	undef @buffer;
	print STDERR '.';
}

sub CSV_XS {
	print STDERR '*';
	use Text::CSV_XS;
	use IO::File;
	my $io = new IO::File "< sample.csv";
	my $csv = new Text::CSV_XS({sep_char=>';'});
	while (my $row = $csv->getline($io)) {
		last unless @$row;
		@buffer = @$row; #just a "do something" instruction
	}
	undef @buffer;
	$io->close;
	print STDERR '*';
}