view release on metacpan or  search on metacpan

t/40blobs.t  view on Meta::CPAN

if ($@) {
    plan skip_all => "ERROR: $DBI::errstr. Can't continue test";
}
plan tests => 14;

my $size= 128;

ok $dbh->do("DROP TABLE IF EXISTS $table"), "Drop table if exists $table";

$dbh->{mysql_enable_utf8}=1;

my $create = <<EOT;
CREATE TABLE $table (
    id INT NOT NULL DEFAULT 0,
    name BLOB)
EOT

ok ($dbh->do($create));

my ($b, $blob) = ("","");