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

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