Modèle Perl Mojolicious

Question

Je crée un Mojolicious mais je n'arrive pas à comprendre la documentation pour la création d'un modèle .

Quelqu'un pourrait-il donner un exemple de création d'un modèle, d'exécution d'une requête SQL brute et de récupération des résultats dans un contrôleur pour les transmettre à la vue ?

Je pense à quelque chose comme ça :

Modèle

package LS::Model::Dt;  
use Mojo::Base;  
use DBI;  

# Here is what I don't understand
# Do I need to create a subroutine that connects to the database like this?  

sub connect_db {

  my $user       = 'user_sql';
  my $pass       = 'pass_sql';
  my $connection = "dbi:Sybase:server=db.sql-srv.com;database=Adventure";
  my $dbh = DBI->connect($connection, $user, $pass) or die 'Cannot connect';
}  

sub queries{

  my $query_selectall = "select * from foo";
  my $all_query       = $dbh->selectall_arrayref($query_selectall, {Slice => {}});
}

Contrôleur

package LS::Controller::Home;

use Mojo::Base 'Mojolicious::Controller';
use LS::Model::Dt

sub home {
    my $self = shift;

    # Somehow get the query results here
    my $query_res = #somehow get the query results here

    $self->render(res=>$query_res);
}

1;

Answer 1

Modification ultérieure : j'ai réussi à faire quelque chose grâce à ce tutoriel :
http://oliverguenther.de/2014/04/applications-with-mojolicious-part-four-database-schemas-with-dbixclass/
Le code Github pour les cas où vous n'êtes pas sûr de l'endroit où l'auteur crée un fichier est disponible ici :
https://github.com/oliverguenther/Moblo
Si vous rencontrez des problèmes, vérifiez également ceci :
Mojolicious Déploiement du schéma de la base de données