use strict;
use Scalar::Util qw(refaddr);
sub run {
my($self, @args) = @_;
$main::DBI_OBJ1_ADDR = refaddr($self->dbh("other1"));
$main::DBI_OBJ2_ADDR = refaddr($self->dbh("other2"));
}
1;