my $schema = MyTest::Schema->connect(
  'DBI:mysql:my_db:192.XXX.XXX.25',
  'XX',
  'XX'
);

##</code><code>##

my $schema = MyTest::Schema->connect(
 sub {
  my $dbh = DBIx::Connector->new( @{$args} )->dbh;
  $dbh->{Active} = 1;
  return $dbh;
 }