package MyTest::CDBI::Sweet::Base;
use strict;
use Rose::DB;
use base 'Class::DBI::Sweet';
sub refresh
{
no strict;
no warnings 'redefine';
*Ima::DBI::_mk_db_closure = sub
{
my ( $class, @connection ) = @_;
my $dbh;
return sub
{
unless ( $dbh && $dbh->FETCH('Active') && $dbh->ping )
{
my $db = Rose::DB->new;
$db->connect_option( RootClass => 'DBIx::ContextualFetch' );
$dbh = $db->retain_dbh;
}
return $dbh;
};
};
my $db = Rose::DB->new;
__PACKAGE__->connection($db->dsn, $db->username, $db->password, scalar $db->connect_options);
}
1;