Deriving a class from DBI.

Select or download this

package myDBI;

...
         }; # do

    1;

Select or download this

#!

...
            $dbh_h{$_}->disconnect() for (keys %dbh_h);
             };
         };

Select or download this

C:\Code\Objects>perl Example_02.pl

...
Can't locate auto/myDBI/SUPER/do.al in @INC (@INC contains: . C:/Perl/
+site/lib C:/Perl/lib) at myDBI.pm line 29

myDBI::DESTROY

Select Code to Download