view release on metacpan or  search on metacpan

t/lib/DBI.pm  view on Meta::CPAN

966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
            unless UNIVERSAL::isa("${class}_mem", $mem_class)
            or $DBI::PurePerl;
    }
}
 
 
sub _rebless {
    my $dbh = shift;
    my ($outer, $inner) = DBI::_handles($dbh);
    my $class = shift(@_).'::db';
    bless $inner => $class;
    bless $outer => $class; # outer last for return
}
 
 
sub _set_isa {
    my ($classes, $topclass) = @_;
    my $trace = DBI->trace_msg("       _set_isa([@$classes])\n");
    foreach my $suffix ('::db','::st') {
        my $previous = $topclass || 'DBI'; # trees are rooted here
        foreach my $class (@$classes) {
            my $base_class = $previous.$suffix;