};
}
+sub perl_renderer {
+ my ($self) = @_;
+ $self->{perl_renderer} ||= do {
+ require DBIx::Class::PerlRenderer;
+ DBIx::Class::PerlRenderer->new;
+ };
+}
+
=head1 NAME
DBIx::Class::Storage::DBI - DBI storage handler
$self->_dbh(undef); # in case ->connected failed we might get sent here
$self->_dbh_details({}); # reset everything we know
+ $self->_sql_maker(undef); # this may also end up being different
$self->_dbh($self->_connect);