#!/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");
[download]

Attempt to free unreferenced scalar: SV 0x1ab0358 at C:/perl/site/lib/
+DBI.pm line 1869.
$VAR1 = {
          '1' => {
                   'skip' => undef,
                   'last_price' => '0',
                   'last_update' => undef,
                   'include_all' => 0,
                   'price' => '0',
                   'title' => {
                                'skip' => undef,
                                'last_price' => {
                                                  'skip' => undef,
                                                  'last_price' => unde
+f,
                                                  'last_update' => und
+ef,
                                                  'include_all' => 0,
                                                  'price' => '0',
                                                  'title' => undef,
                                                  'id' => '3'
                                                },
                                'last_update' => undef,
                                'include_all' => 0,
                                'price' => '0',
                                'title' => undef,
                                'id' => '2'
                              },
                   'id' => '1'
                 },
          '3' => $VAR1->{'1'}{'title'}{'last_price'},
          '2' => $VAR1->{'1'}{'title'}
        };
Attempt to free unreferenced scalar: SV 0x1ab04a8.
Attempt to free unreferenced scalar: SV 0x1ab03b8.
[download]