Perl-DBIC/環境設定/スキーマクラス・テーブルクラスの作成のバックアップ(No.5)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl-DBIC/環境設定/スキーマクラス・テーブルクラスの作成へ行く。
- 1 (2007-08-28 (火) 19:08:16)
- 2 (2007-08-28 (火) 19:09:08)
- 3 (2007-08-29 (水) 08:24:56)
- 4 (2007-09-04 (火) 01:27:10)
- 5 (2009-04-30 (木) 02:36:51)
- 6 (2009-09-06 (日) 05:08:30)

Schemaクラスファイルの自動生成

コマンドラインからDBIx::Class::SchemaクラスとDBIx::Classクラスを作る

MySQLのmydbデータベースに接続して、libディレクトリ以下にMyDB::Schemaという名前空間でSchemaクラスを作成してくれる。

 perl -MDBIx::Class::Schema::Loader=make_schema_at,dump_to_dir:./lib \
 -e 'make_schema_at "MyDB::Schema", {relationships => 1, debug => 1}, ["dbi:mysql:mydb","db_user","db_passwd"]'

出来るファイルは以下の通り。

  - lib
    `-- MyDB
        |-- Schema
        |   |-- TableA.pm # テーブルAのDBIx::Classクラス
        |   `-- TableB.pm # テーブルBのDBIx::Classクラス
        `-- Schema.pm # DBIx::Class::Schemaクラス

DBIx::Class::Schema::Loaderを継承して

テーブルごとのDBIx::Classクラスは作らず、Schema::Loaderクラス1つで代用する。

 package MyDB;
 
 use base qw/DBIx::Class::Schema::Loader/;
 
 __PACKAGE__->loader_options();
 
 1;

そのSchema::Loaderクラスを利用するスクリプト。

 use MyDB;
 
 my $db = MyDB->connect('dbi:Pg:dbname=mydb','dbuser','dbpasswd');
 my $rs = $db->resultset('Users');
 my @rows = $rs->search;
 foreach (@rows) {
     print $_->id,$_->name,"\n";
 }

参考

http://search.cpan.org/~blblack/DBIx-Class-Schema-Loader-0.04002/lib/DBIx/Class/Schema/Loader.pm