Perl混合模型

我正在创建一个 但我不懂申请表

是否有人可以提供一个示例，说明如何创建模型、运行原始SQL查询并在控制器中获取结果以传递给视图

我在想这样的事情：

模型 控制器

---

稍后编辑：我通过本教程进行了管理：

当您现在确定作者在何处创建文件时的Github代码在此处可用：

如果遇到问题，请检查此项：

---

您考虑过使用吗？如果你刚刚开始，它会满足你的所有需要。有趣。在快速搜索之后，我可以在Mojolicious中找到大约零个关于模型的文档。即使是你的链接也只显示了一个带有单例实例的随机类。@Borodin是的，但我需要用MVC的方式来学习，谢谢你的快速介绍reply@melpomene是的，不幸的是，文档特别是示例文档很少，感谢replyConsider关注DBIx:：Class，特别是Schema:：Loader。如果已经设置了数据库，则可以自动发现该数据库，以获取$schema对象，该对象可以用作数据库的模型。

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 => {}});
}

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;