view release on metacpan or  search on metacpan

lib/MySQL/Warmer/CLI.pm  view on Meta::CPAN

    my $user =
        exists $opt{user} ? delete $opt{user} :
        exists $ENV{USER} ? $ENV{USER}        : '';
    my $password = exists $opt{password} ? delete $opt{password} : '';
    my $dsn = $class->_build_dsn(%opt);
    my @dsn = ($dsn, $user, $password, {
        RaiseError          => 1,
        PrintError          => 0,
        ShowErrorStatement  => 1,
        AutoInactiveDestroy => 1,
        mysql_enable_utf8   => 1,
    });

    (+{
        dsn => \@dsn,
        $dry_run ? (dry_run => 1) : (),
    }, \@ARGV);
}

sub _build_dsn {
    my ($self, %args) = @_;

xt/01_basic.t  view on Meta::CPAN

      'skip-networking' => '',
    }
) or plan skip_all => $Test::mysqld::errstr;

my @connect_info = ($mysqld->dsn(dbname => 'test'));
$connect_info[3] = {
    RaiseError          => 1,
    PrintError          => 0,
    ShowErrorStatement  => 1,
    AutoInactiveDestroy => 1,
    mysql_enable_utf8   => 1,
};
my $dbh = DBI->connect(@connect_info);

$dbh->do(q[CREATE TABLE `test1` (
  `id` BIGINT unsigned NOT NULL auto_increment,
  `event_id` INTEGER NOT NULL,
  PRIMARY KEY (`id`, `event_id`)
)]);

$dbh->do(q[CREATE TABLE `test2` (