# -- Prepare test data: # create table dbddb2_clob ( # id integer not null, # data clob not null , # constraint pk_dbddb2_clob primary key (id) # ); # insert into dbddb2_clob values (1, 'fubar_clob'); my $sth = $dbh->prepare(q{select id,data from dbddb2_clob}); $sth->execute(); is_deeply($sth->fetchall_arrayref(), [[1,'fubar_clob']], q{Expect 1 row (1,'fubar_clob') returned});