#!/usr/bin/perl -w
$|++;

# BEGIN { $ENV{DBI_PUREPERL} = 2 }

use strict;
use Data::Dumper;
use DBI();

# DBI->trace(15);

my $sponge = DBI->connect("dbi:Sponge:","","");
my $sth = $sponge->prepare('foo', {
    rows => [ [ 'bar' ] ],
    NAME => [ 'baz' ],
  }
);

print Dumper $sth->DBD::_::dr::FETCH("NAME_hash");