#!/usr/bin/perl

use v5.12;
use warnings;
use autodie qw( :all );

use File::BOM;
use DBI;
use Data::Dumper;

package My::Text::CSV_XS {
        use parent "Text::CSV_XS";

        sub DUMP
        {
                return Data::Dumper->new([\@_],['*_'])->Sortkeys(1)->Indent(1)->Useqq(1)->Dump();
        }

        sub new
        {
                my $proto=shift;
                say "$proto -> new(",DUMP(@_),")";
                $proto->SUPER::new(@_);
        }

        sub header
        {
                my $self=shift;
                say "$self -> header(",DUMP(@_),")";
                $self->SUPER::header(@_);
        }

        sub getline
        {
                my $self=shift;
                say "$self -> getline(",DUMP(@_),")";
                $self->SUPER::getline(@_);
        }

        sub getline_hr
        {
                my $self=shift;
                say "$self -> getline_hr(",DUMP(@_),")";
                $self->SUPER::getline_hr(@_);
        }

        sub getline_all
        {
                my $self=shift;
                say "$self -> getline(",DUMP(@_),")";
                $self->SUPER::getline_all(@_);
        }

        sub getline_hr_all
        {
                my $self=shift;
                say "$self -> getline_hr(",DUMP(@_),")";
                $self->SUPER::getline_hr_all(@_);
        }
}


open my $h,'>:encoding(utf-8)','test.csv';
say $h qq<\x{FEFF}"foo","bar","baz">;
say $h qq<"1","2","3">;
say $h qq<"4","5","6">;
close $h;

my $dbh=DBI->connect('dbi:CSV:',undef,undef,{ RaiseError => 1, PrintError => 0, f_ext => '.csv', csv_class => 'My::Text::CSV_XS'});
my $sth=$dbh->prepare('select * from test');
$sth->execute();
while (my @a=$sth->fetchrow_array()) {
        say join(",",@a);
}
$sth->finish();