編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

スキーマの設定方法(基本)

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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2011-06-11 (土) 06:18:47 (2415d)