=Starting CASE 1 =... 'db' => bless( { ... =... =Hashes? $VAR1 = []; =ok 1 - object isa DBIx::Simple::Statement =Destroying DBIx::Simple::Result =Destroying DBIx::Simple::Result =Destroying DBIx::Simple::DeadObject =Destroying DBIx::Simple::DeadObject (not destroyed yet) (not destroyed yet) (not destroyed yet) =Starting CASE 2 =... 'db' => bless( { ... =... =Hashes? $VAR1 = []; =ok 2 - object isa DBIx::Simple::Statement =Destroying DBIx::Simple::Result =Destroying DBIx::Simple::Result =Destroying DBIx::Simple::DeadObject =Destroying DBIx::Simple::DeadObject (not destroyed yet) (not destroyed yet) (not destroyed yet) =Starting CASE 3 (not destroyed yet) (not destroyed yet) ok 3 - object isa DBIx::Simple::Statement (doesn't fail) =Destroying DBIx::Simple::Result 1 Destroying DBIx::Simple::Result 2 =Destroying DBIx::Simple::DeadObject 1 Destroying DBIx::Simple::DeadObject 2 =Starting CASE 4 =... 'db' => bless( { ... =... (not destroyed yet) (not destroyed yet) (not destroyed yet) (not destroyed yet) (object still usable) Hashes? $VAR1 = []; ok 4 - object isa DBIx::Simple::Statement Destroying DBIx::Simple::Result Destroying DBIx::Simple::Result Destroying DBIx::Simple::DeadObject =Destroying DBIx::Simple::DeadObject 2 =# Tests were run but no plan ... =(global destruction begins) Destroying DBIx::Simple Destroying DBIx::Simple::Statement Destroying DBIx::Simple::DeadObject Destroying DBIx::Simple Destroying DBIx::Simple::Statement Destroying DBIx::Simple::DeadObject Destroying DBIx::Simple::Statement Destroying DBIx::Simple::Statement Destroying DBIx::Simple Destroying DBIx::Simple::DeadObject Destroying DBIx::Simple Destroying DBIx::Simple::Statement Destroying DBIx::Simple::DeadObject