приложение Mojolicious::Lite работает с morbo, но не работает с hypnotoad.
my $dbh = DBI->connect("dbi:mysql:dbname=xxx", "uname", "pass",
{ AutoCommit => 0, mysql_enable_utf8 => 1}, )
or die "Couldn't connect to database: ", $DBI::errstr;
helper db => sub { $dbh };
get '/xxx' => sub {
my $sth = $self->db->prepare("insert into posts values(?,?,?,?,?,?)");
$sth->execute('xxx', 'xxx', 'xxx', 'xxx', 'xxx', 'xxx');
$sth->finish();
$self->db->commit;
};
при запуске с hypnotoad остальная часть приложения работает, но не читает/записывает данные в/из базы данных. пожалуйста, помогите мне написать код, который работает с hypnotoad
Вы можете использовать DBIx::Connector, например
use strict;
use warnings;
use Mojolicious::Lite;
use DBIx::Connector;
helper connector => sub {
state $db = DBIx::Connector->new(sprintf('dbi:mysql:host=%s:database=%s',@{ $config->{mysql_database}}{qw[host db]}),@{$config->{mysql_database}}{qw[user password]}) or die "Could not connect";
};
helper mysql => sub { shift->connector->dbh };
post '/login' => sub {
my $c = shift;
my $user = $c->param('user_email');
my $password = $c->param('password');
my $sth = $c->mysql->prepare_cached('SELECT * FROM users WHERE user_email = ?') or $c->app->log->debug($DBI::errstr);
$sth->execute($user);
my $row = $sth->fetchrow_arrayref;
$sth->finish;
## more code
};
Когда hypnotoad работал как демон (т.е. разветвлялся), соединение с базой данных было потеряно.
Я использовал плагин базы данных:
use Mojolicious::Plugin::Database;
В стартапе:
sub startup {
my $self = shift;
# Load configuration from hash returned by config file
my $config = $self->plugin('Config');
$self->plugin( 'database', {
dsn => $config->{dsn},
username => $config->{user},
password => $config->{password},
options => {
RaiseError => 0,
mysql_auto_reconnect => 1,
AutoCommit => 1,
PrintError => 0,
PrintWarn => 0,
},
helper => 'db'
});
}
Самое главное это mysql_auto_reconnect!!! Это решило мою проблему.
Возможно, это потому, что не morbo разветвляется, а разветвляется hypnotoad!!