perl DBIx :: Class :: Schema

Question

我有一個DBIx :: Class :: Schema的問題，我創建了數據庫，然後創建了表格：User，Post，...。然後我在終端執行了這個操作

​​

命令製作了lib :: App :: Schema與Schema.pm，並且在其中有Result路徑。 （使用表類）。

這是由Schema.pm

use utf8; 
package App::Schema; 
use strict; 
use warnings; 
use base 'DBIx::Class::Schema'; 

__PACKAGE__->load_namespaces; 
1; 

生成，我用的架構，以便：

use lib::App::Schema; 
my $schema = App::Schema->connect("dbi:mysql:dbname=my_db", "root", "password"); 
my @m = $schema->resultset('User')->all; 

在這個文件中出現錯誤

DBIx::Class::Schema::source(): Can't find source for User at lib/Local/ThisFile.pm line 26 

Answer 1

讓我們假設你想爲數據庫的模式創建一個包Habr::Schema。你可以使用命令

dbicdump -o dump_directory=./lib Habr::Schema 'dbi:mysql:my_db:localhost:3306' root password 

，然後你可以使用這個

use lib './lib'; 
use Habr::Schema; 

但你一定要小心，在use lib相對路徑訪問模塊，它始終是更好地使用絕對路徑，以便您可以從任何工作目錄運行您的代碼

您的完整程序可能如下所示。它打印從每一行的id列在表User

use strict; 
use warnings 'all'; 
use feature 'say'; 

use Habr::Schema; 

my $schema = App::Schema->connect(qw/ dbi:mysql:dbname=my_db root password /); 

for my $user ($schema->resultset('User')->all) { 
    say $user->id; 
}