スキーマの設定方法(基本)MyDBクラスを作るMyDB.pmDB接続情報を書く。 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 => '' }); |
|