Select Code to Download

    my $s   = constructor();
    my $dbs = $s->dbs;
    my $r   = $dbs->query($Q);
    my $h = $r->hashes;

 my $s = constructor();
 my $r = $s->dbs->query($Q);

# $self is quoted on purpose, to pass along the stringified version,
# and avoid increasing reference count.
...
            query => $query
        }, 'DBIx::Simple::Statement';
        $statements{$self}{$st} = $st;

> Also, is there a reason you didnt use Scalar::Util::Weaken instead o
+f
> quoting an object like that?
...
to recognise the object when you see it, then keeping the entire objec
+t
around is just unnecessary bloat; bloat that could cause many hours of
debugging.