#!/usr/bin/perl -w
use DBI;
use strict;

my $dbh = DBI->connect("dbi:SQLite:dbname=ttt","","", { RaiseError => 1 });
$dbh->do("DROP TABLE IF EXISTS foo");
$dbh->do("CREATE TABLE foo ('value' 'json text')");
$dbh->do("INSERT INTO foo ('value') VALUES ('bar')");
my $sth = $dbh->prepare("SELECT * FROM foo");
$sth->execute;
while (my $row = $sth->fetch) {
    print "type:$sth->{TYPE}[0] value:$row->[0]\n";
}
