Perl-DBIx-Skinny/スキーマの設定方法（基本）のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl-DBIx-Skinny/スキーマの設定方法（基本）へ行く。
- 1 (2010-10-23 (土) 18:48:43)
- 2 (2010-10-23 (土) 19:12:30)

スキーマの設定方法（基本）

MyDBクラスを作る

MyDB.pm

DB接続情報を書く。

 package MyDB;
 use DBIx::Skinny setup =>
  { dsn => 'dbi:Pg:dbname=mydb;host=localhost', username => 'postgres', password => '' };
 1;

MyDB/Schema.pm

スキーマを書く。

 package MyDB::Schema;
 use DBIx::Skinny::Schema;
 
 install_table users => schema {
    pk 'user_id';
    columns qw/user_id name age sex/;
 };
 
 install_table groups => schema {
    pk 'group_id';
    columns qw/group_id group_name/;
 };
 1;

MyDBを使ってみる

 #!/usr/bin/env perl
 use strict;
 use warnings;
 use MyDB;
 
 my $db = MyDB->new;
 my $row = $db->search('users', {name => 'taro'})->next;

MyDB.pmにsetupで接続情報を書かなかった場合、MyDB->new()で接続情報を書いても良い。

 my $db = MyDB->new({ dsn => 'dbi:Pg:dbname=mydb;host=localhost', username => 'postgres', password => '' });