вспомогательная функция hypnotoad в mojolicious lite - PullRequest
1 голос
/ 21 мая 2019

приложение 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

1 Ответ

1 голос
/ 21 мая 2019

Вы можете использовать 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
};
...