#!/usr/bin/perl
#/home/tbooth/perl/testanydata.perl - created Mon Jun 27 13:57:06 2005

use warnings;

use DBI;

my $addbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
$addbh->func('import', 'CSV', [<DATA>], 'ad_import');


__DATA__
foo,bar,baz
1,2,3
4,5,6

##</code><code>##

Can't call method "fetchrow_array" on unblessed reference at /usr/share/perl5/SQL/Statement/Functions.pm line 560, <DATA> line 3.

##</code><code>##

libxml-twig-perl 3.17-1
libanydata-perl 0.10-4
libtext-csv-perl 0.23-5
libdbd-csv-perl 0.2100-2
libdbd-anydata-perl 0.08-2
libsql-statement-perl 1.14-1