DBIC

2009鐃緒申鐃緒申鐃緒申06·鐃緒申鐃�17鐃緒申鐃緒申鐃緒申00:13

$\«\Æ\´\ê¡¼¤Ç¤¹$ Perl

DBIC鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\·\鐃緒申鐃�\鐃緒申�鐃緒申蔓鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純™申鐃緒申鐃緒申鐃緒申鐃緒申��申¹鐃緒申鐃緒申鐃渋�緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�

鐃緒申�鐃緒申DBIC鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申臓��鐃緒申鐃�²鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純™申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申弌鐃緒申鐃俊�緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申臓�鐃緒申鐃緒申鐃�»鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￡´�緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�entry\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�comment\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃署¨�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�渋￥申

mysql> desc entry;
+---------+--------------+------+-----+---------+----------------+
| Field   | Type         | Null | Key | Default | Extra          |
+---------+--------------+------+-----+---------+----------------+
| id      | int(11)      | NO   | PRI | NULL    | auto_increment | 
| name    | varchar(255) | NO   |     | NULL    |                | 
| content | text         | YES  |     | NULL    |                | 
+---------+--------------+------+-----+---------+----------------+
3 rows in set (0.02 sec)


mysql> desc comment; 
+----------+--------------+------+-----+---------+----------------+
| Field    | Type         | Null | Key | Default | Extra          |
+----------+--------------+------+-----+---------+----------------+
| id       | int(11)      | NO   | PRI | NULL    | auto_increment | 
| entry_id | int(11)      | NO   |     | NULL    |                | 
| name     | varchar(255) | NO   |     | NULL    |                | 
| content  | text         | YES  |     | NULL    |                | 
+----------+--------------+------+-----+---------+----------------+
4 rows in set (0.00 sec)

Entry has_many Comment ( Comment belongs_to Entry ) 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申��申²¼鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

# MyApp/Schema/Entry.pm
__PACKAGE__->has_many(
    comments => 'MyApp::Schema::Comment', 
    'entry_id'
);
 
# MyApp/Schema/Comment.pm
__PACKAGE__->belongs_to( entry_id => 'MyApp::Schema::Entry' );

鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑Ù™申«鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��￠Ê鐃縮�緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申has_many 鐃緒申鐃緒申鐃緒申 belongs_to \鐃緒申鐃�\½\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申�鐃緒申¾鐃緒申鐃緒申鐃緒申鐃緒申�鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 __PACKAGE__ 鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋�緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃�·鐃緒申鐃緒申鐃獣�渋�緒申鐃緒申臓鐃�has_many 鐃緒申鐃緒申鐃緒申 belongs_to 鐃緒申鐃緒申鐃渋°ú¿�峻�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑¡￥申��申鐃緒申鐃緒申鐃俊￥申鐃緒申�鐃緒申鐃緒申��申鐃緒申��申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃渋�曙¡�曙™申½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃曙¡�緒申

__PACKAGE__->method( 
    'accessor_name' => 'MyApp::Schema::Hoge', 
    'FOREIGN KEY' or \%cond,
    \%attrs,
);

1. 鐃緒申鐃緒申鐃緒申鐃暑ǚ申鐃暑ú¿�峻�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� accessor_name 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃渋�緒申¾鐃緒申鐃緒申��申鐃緒申鐃� prefetch 鐃緒申鐃�·鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￠Ê鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� DBIx::Class::ResultSet\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃渋�緒申¾鐃緒申鐃緒申��申鐃緒申鐃�\鐃緒申鐃�\½\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃署¨�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申
2. 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃術°ú¿�峻�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申
3. 鐃緒申鐃緒申鐃緒申»鐃緒申��¿�峻�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� JOIN 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃緒申�鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 FOREIGN KEY 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申\鐃緒申鐃�\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申 JOIN 鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申½
鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申��¿�峻�緒申�鐃緒申µ鐃緒申鐃緒申鐃緒申 or undef 鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申accessor_name 鐃緒申鐃緒申 FOREIGN KEY 鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 JOIN 鐃緒申�鐃緒申
4. 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申��¿�峻�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃渋�緒申¾鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�·鐃緒申鐃緒申鐃渋�緒申 join_type 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�·鐃緒申鐃緒申鐃緒申�鐃緒申µ鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申Ð¾鐃緒申鐃緒申鐃渋￢�渋￥申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 undef 鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申¹

鐃暑Ǚ申¾鐃緒申鐃緒申鐃渋�曙™申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�渋�曙¡�緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃� 鐃緒申�鐃緒申 FOREIGN KEY 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\«\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申« 鐃緒申臓�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申«鐃緒申�鐃渚Ǚ申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�²鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申³鐃暑Ǚ申鐃緒申�鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\«\鐃緒申鐃�\鐃緒申鐃緒申鐃渋�緒申Comment\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�entry_id鐃緒申鐃緒申鐃塾�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申 FOREIGN KEY 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申�鐃獣�渋�獣�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￠Â鐃緒申�鐃緒申鐃縮�渋￥申(鐃緒申鐃�Ž\鐃緒申�鐃緒申Ž\鐃緒申�鐃緒申)

has_many 鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃署¨�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑¡￥申has_many 鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申Catalyst鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃署¨�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

# Controller

$c->model('DBIC::Entry')->search(
    {},
    {   
        # 鐃緒申鐃�³鐃緒申鐃�³鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¾鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申�鐃緒申¾鐃緒申鐃緒申鐃�(has_many鐃緒申鐃緒申鐃緒申鐃緒申鐃�«belongs_to鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申��申鐃暑ú¿�緒申)鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申���渋�曙¡�緒申
        prefetch => [ qw/comments/ ], 
    },
);

# Schema ( Schema/Entry.pm )

# ---------------------------
# \鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�1
# ---------------------------
 
# 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃�·鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� PRIMARY KEY 鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� FOREIGN_KEY 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 LEFT JOIN
# LEFT JOIN entry.id = comment.entry_id
 
__PACKAGE__->has_many(
    comemnts => 'MyApp::Schema::Comment',
    'entry_id',
);
  
 
# ---------------------------
# \鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�2
# ---------------------------
 
# 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃�·鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� PRIMARY KEY 鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� FOREIGN KEY 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 INNER JOIN
# INNER JOIN entry.id = comment.entry_id
 
__PACKAGE__->has_many(
    comments => 'MyApp::Schema::Comment',
    'entry_id',
    { join_type => 'inner' }, # join_type 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申��申鐃緒申鐃�»鐃緒申鐃緒申��¿�峻�緒申鐃緒申鐃�
);
  
 
# ---------------------------
# \鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�3
# ---------------------------
 
# 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃�·鐃緒申鐃緒申鐃獣�緒申鐃緒申�鐃緒申鐃緒申鐃暑Õ�緒申鐃緒申鐃�\«\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￠¸鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� FOREIGN KEY 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 LEFT JOIN
# LEFT JOIN entry.name = comment.entry_id
 
__PACKAGE__->has_many(
    comments => 'MyApp::Schema::Comment',
    { 'foreign.entry_id' => 'self.name' },
);

\鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�1鐃緒申鐃緒申鐃緒申\鐃緒申��申¼\½\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�\鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�2鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃� LEFT JOIN 鐃緒申鐃緒申鐃緒申 INNER JOIN 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹¹鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�·鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� PRIMARY KEY 鐃緒申鐃緒申 JOIN 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申\鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�3鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¾鐃緒申鐃緒申鐃緒申\«\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

has_one, might_have 鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃署¨�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�

~~\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\µ\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�~~¾鐃緒申鐃緒申鐃渋￢�渋￥申
has_many 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�has_many 鐃緒申鐃緒申 1鐃緒申鐃�Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 1鐃緒申鐃�Ð1 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�has_one 鐃緒申鐃緒申鐃緒申 might_have 鐃緒申鐃緒申鐃渋°ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃� JOIN 鐃緒申鐃緒申 INNER JOIN 鐃緒申鐃�« LEFT JOIN 鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

belongs_to 鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃署¨�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�

¼鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申belongs_to 鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃署¨�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 Catalyst 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

# Controller

$c->model('DBIC::Comment')->search(
    {},
    {   
        # 鐃緒申鐃�³鐃緒申鐃�³鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¾鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申�鐃緒申¾鐃緒申鐃緒申鐃�(has_many鐃緒申鐃緒申鐃緒申鐃緒申鐃�«belongs_to鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申��申鐃暑ú¿�緒申)鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申���渋�曙¡�緒申
        prefetch => [ qw/entry_id/ ], 
    },
);

# Schema ( Schema/Comment.pm )

# ---------------------------
# \鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�1
# ---------------------------

# 鐃緒申鐃緒申鐃緒申»鐃緒申��¿�峻�緒申�鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃渋￥申accessor_name(entry_id)鐃緒申鐃緒申 JOIN 鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃緒申�鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹
# 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃�·鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� FOREIGN KEY 鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� PRIMARY KEY 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 INNER JOIN
# JOIN ON comment.entry_id = entry.id

__PACKAGE__->belongs_to( entry_id => 'MyApp::Schema::Entry' );
 

# ---------------------------
# \鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�2
# ---------------------------

# 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃�·鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� FOREIGN KEY 鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� PRIMARY KEY 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 RIGHT JOIN
# RIGHT JOIN ON comment.entry_id = entry.id

__PACKAGE__->belongs_to( 
    entry_id => 'MyApp::Schema::Entry', 
    undef, 
    { join_type => 'right' } ); # join_type 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申��申鐃緒申鐃�»鐃緒申鐃緒申��¿�緒申
 

# ---------------------------
# \鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�3
# ---------------------------

# 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃�·鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� FOREIGN KEY 鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� name 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 LEFT JOIN
# JOIN ON comment.entry_id = entry.name

__PACKAGE__->has_many(
    comments => 'MyApp::Schema::Entry',
    { 'foreign.name' => 'self.entry_id' },

\鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�1鐃緒申鐃緒申鐃緒申\鐃緒申��申¼\½\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�\鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�2鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃� INNER JOIN 鐃緒申鐃緒申鐃緒申 RIGHT JOIN 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹¹鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃�·鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃� PRIMARY KEY 鐃緒申鐃緒申 JOIN 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申\鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申鐃�3鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¾鐃緒申鐃緒申鐃緒申\«\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

many_to_many 鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃署¨�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�

鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃術�渋￥申臓鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃渋￥申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申µ鐃緒申陝�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申

鐃緒申�鐃緒申»²¹鐃緒申鐃緒申鐃渋�緒申
鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¾鐃緒申��申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申¼鐃緒申鐃�¾鐃緒申臓鐃緒申鐃緒申鐃緒申鐃渋�緒申DBIx::Class::Relationship - Inter-table relationships

\鐃緒申鐃�\鐃緒申鐃緒申臓鐃�: perl; DBIC; \鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\·\鐃緒申鐃�\鐃緒申鐃�

2009鐃緒申鐃緒申鐃緒申05·鐃緒申鐃�19鐃緒申鐃緒申鐃緒申02:17

$\«\Æ\´\ê¡¼¤Ç¤¹$ Perl

resultset_attributes 鐃緒申鐃緒申鐃述�緒申鐃緒申�鐃緒申鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃� alias 鐃緒申鐃緒申鐃緒申 me 鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹¹鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申 with DBIC

鐃緒申鐃�³鐃緒申鐃緒申鐃術�緒申Ð鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃渋￥申鐃�µ鐃緒申鐃�µ鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃渋￥申(oŽ鐃緒申�鐃獣�緒申Ž鐃緒申鐃�o)Ž鐃緒申鐃�Ž鐃緒申鐃�

鐃緒申鐃薯Æ鐃緒申��申鐃緒申鐃�DBIC鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃暑Ǚ申鐃緒申鐃緒申鐃�perl鐃緒申鐃緒申鐃緒申O/R\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申DBIC鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓髻�鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�SQL鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￠Ê鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申SQL鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃渋￥申臓鐃緒申¹鐃緒申鐃暑™申鐃緒申鐃�\¹\«\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃渚¡�緒申鐃緒申�鐃緒申鐃緒申�鐃緒申

鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� delete_flag 鐃緒申鐃緒申鐃述�緒申鐃縮�緒申鐃緒申��申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃淳�緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�find鐃緒申鐃緒申鐃緒申鐃緒申鐃�«search鐃緒申鐃�·鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 delete_flag = 0 鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃�¾鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申Schema\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申

__PACKAGE__->resultset_attributes({ where => {delete_flag => 0} });

鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�join鐃緒申鐃緒申鐃緒申prefetch鐃緒申鐃�·鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申 delete_flag 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申\鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�join鐃緒申鐃�·鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� delete_flag 鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申�鐃緒申鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￠À鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

__PACKAGE__->resultset_attributes({ where => {'me.delete_flag' => 0} });

鐃緒申鐃�³鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申�鐃俊�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃� delete_flag 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申«鐃緒申�鐃渚¡×�緒申鐃緒申�鐃緒申鐃緒申鐃�¼鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申鐃�ÐOK鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃術�渋�獣�渋�獣�渋￥申鐃�³鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￠Ê鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃�¾鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃術�緒申·鐃緒申臓鐃渋￥申
鐃緒申�鐃緒申鐃緒申�鐃獣�渋�獣�緒申鐃緒申鐃�»鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申鐃緒申鐃緒申join鐃緒申鐃緒申鐃緒申鐃緒申鐃�«prefetch鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�join鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃�resultset_attributes鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃�¾鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃渚¡�渚¡�緒申

鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃術�緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¾鐃緒申鐃緒申鐃緒申 alias 鐃緒申鐃縮�緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申�鐃緒申

DBIC_TRACE鐃緒申鐃緒申鐃緒申SQL鐃緒申鐃緒申鐃緒申½Ð鐃緒申�鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃縮�渋￥申DBIC鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�alias鐃緒申鐃緒申鐃緒申 me 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�½Ð鐃緒申�鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申SQL鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申

SELECT me.id, me.comment, me.created_at, me.updated_at FROM comments me WHERE ( ( ( ( ( ( me.id = ? ) ) ) ) AND ( delete_flag = ? ) ) ): '1', '0'

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申 alias 鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�¹¹鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃薯Ë鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃純™申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申(=Ž鐃緒申�鐃獣�緒申Ž鐃緒申鐃�)Ž鐃緒申鐃緒申鐃渋�緒申Schema\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃緒申�鐃緒申鐃緒申鐃�µ鐃緒申鐃�²鐃緒申臓鐃�

__PACKAGE__->resultset_attributes({
    alias => 'comment',                   # From鐃緒申鐃緒申鐃緒申��申³鐃暑™申鐃緒申鐃�alias
    from  => [{ comment => 'comments' }], # From鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�alias (alias => table鐃緒申鐃�¾)
    where => { 'comment.delete_flag' => 0 },
});

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申¾鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�SQL鐃緒申鐃緒申鐃緒申½Ð鐃緒申�鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申

SELECT comment.id, comment.comment, comment.created_at, comment.updated_at FROM comments comment WHERE ( ( ( ( ( ( comment.id = ? ) ) ) ) AND ( comment.delete_flag = ? ) ) ): '1', '0'

½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋�緒申鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 alias 鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申 comment 鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申��申鐃緒申帖鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申 'comment.delete_flag' => 0 鐃緒申鐃緒申鐃緒申½鐃緒申�鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓��°¡�渋�緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃渋�渋�獣�渋�緒申

\鐃緒申鐃�\鐃緒申鐃緒申臓鐃�: perl; DBIC; resultset_attributes

2008鐃緒申鐃緒申鐃緒申07·鐃緒申鐃�06鐃緒申鐃緒申鐃緒申18:51

$\«\Æ\´\ê¡¼¤Ç¤¹$ Linux Perl

\·\鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃緒申鐃緒申鐃緒申鐃�Catalyst鐃緒申鐃緒申鐃緒申DB\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申�鐃暑î�緒申鐃緒申鐃�

Catalyst鐃緒申鐃緒申鐃緒申Model鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申DBIC鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申
鐃緒申�鐃獣�渋�獣�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￠Á鐃緒申鐃緒申鐃緒申鐃緒申鐃�Catalyst::Model::DBIC::Schema鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�DB\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申�鐃暑î�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申«鐃緒申鐃緒申鐃緒申½鐃縮�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�(*鐃緒申鐃�鐃緒申\鐃緒申�鐃緒申*)

鐃緒申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�Catalyst::Model::DBIC::Schema鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�DB\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申�鐃暑î�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申鐃暑Ǚ申²¼鐃緒申鐃緒申鐃緒申3鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申��鐃緒申鐃�鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申

1. 鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑ß�緒申¹鐃緒申鐃緒申鐃緒申Schema\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃�
2. Schema::Loader鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃�DB鐃緒申鐃�«鐃緒申鐃緒申鐃緒申Schema\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
3. Schema::Loader鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃�DB鐃緒申鐃�«鐃緒申鐃緒申鐃緒申Schema::Loader\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

鐃緒申鐃緒申²鐃緒申�鐃緒申鐃緒申鐃�2鐃緒申鐃緒申鐃俊�緒申鐃緒申�鐃緒申鐃緒申��鐃緒申�鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申3鐃緒申鐃緒申鐃俊�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃渋￠Ë鐃緒申鐃�²鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申»鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申

¼鐃緒申鐃緒申鐃暑Ǚ申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓髻�鐃緒申鐃緒申鐃緒申沺鐃緒申鐃緒申鐃緒申鐃緒申�鐃渋￥申

./script/myapp_create.pl model DBIC DBIC::Schema MyApp::Schema create=static dbi:mysql:[db_name] [user] [pass]

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³Ð鐃緒申陝�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�...orz鐃緒申�鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申\·\鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�(Ž鐃緒申鐃�Ž\鐃緒申�鐃緒申Ž\)Ž鐃緒申鐃�Ž鐃緒申鐃�

make_schema.sh

#!/bin/sh

if [ $# -eq 3 ]; then
    app_name=`echo $1 | tr "[:upper:]" "[:lower:]"`
    command="../script/${app_name}_create.pl model DBIC DBIC::Schema ${1}::Schema create=static dbi:mysql:${app_name} $2 $3"
    echo $command

    echo -n "¼鐃緒申鐃�¹鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃�«鐃緒申�鐃緒申[Yn]: "
    read confirm

    case $confirm in
        y|Y)    $command
                ;;
        *)      exit
                ;;
    esac
else
    echo 'Usage: ./make_schema.sh MyApp user pass'
fi

DB鐃緒申鐃緒申鐃渋�緒申¾鐃緒申鐃緒申��申鐃緒申鐃緒申鐃渋￥申\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¾鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¾鐃緒申��申鐃緒申鐃�»鐃緒申��申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃暑Ǚ申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

./make_schema.sh MyApp sasata299 secret

鐃緒申鐃緒申鐃塾�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¼鐃緒申鐃�¹鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¼鐃緒申鐃�¹鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申\³\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申�鐃緒申½¼鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�¼鐃緒申鐃�¹鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申³鐃緒申�鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申(Ž鐃緒申痢鐃緒申Ž鐃緒申鐃�)Ž鐃緒申Ž鐃緒申鐃�Ž鐃緒申Ž鐃緒申鐃�Ž鐃緒申

鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申\·\鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃緒申鐃緒申鐃緒申鐃�if¾鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申!=鐃緒申鐃緒申鐃緒申鐃緒申鐃�«-gt鐃緒申鐃緒申鐃緒申鐃緒申鐃�«-eq鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申�鐃緒申鐃緒申�鐃緒申��鐃緒申��申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申
=鐃緒申鐃緒申鐃緒申鐃緒申鐃�«!=鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申��術�緒申鐃緒申鐃�³鐃緒申�鐃渋￥申-gt鐃緒申鐃緒申鐃緒申鐃緒申鐃�«-et鐃緒申鐃緒申鐃緒申鐃緒申�鐃峻�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�渋￥申臓鐃�

---
鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�²鐃緒申�鐃緒申�鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申�鐃緒申鐃緒申鐃�¼«鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃渋￥申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑¡￥申Catalyst鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申�鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申DB\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申�鐃暑î�緒申鐃緒申鐃緒申鐃渋�曙¡�緒申(\鐃緒申�鐃渋�緒申鐃�\鐃緒申鐃�)\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申2\鐃緒申鐃�\鐃緒申�鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

鐃緒申鐃� DB\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃暑™申鐃緒申鐃緒申鐃暑î�緒申鐃緒申鐃�
鐃緒申�鐃渋�渋�渋�渋�緒申DBIx::Class::Schema鐃緒申鐃緒申鐃緒申·鐃緒申鐃�¾µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申Schema\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申��申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�
鐃緒申�鐃渋�渋�渋�渋�緒申³鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑î�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

鐃緒申DB\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申�鐃緒申鐃緒申鐃�¼«鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
鐃緒申�鐃渋�渋�渋�渋�緒申DBIx::Class::Schema::Loader鐃緒申鐃緒申鐃緒申·鐃緒申鐃�¾µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申Schema::Loader\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃縮�暑î�緒申鐃緒申��申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�
鐃緒申�鐃渋�渋�渋�渋�緒申³鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑î�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃術�渋￥申

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�µ»鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申�鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申"static"鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申"dynamic"鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣°ǚ申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申

DBIC»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申DB\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�曙¡�緒申(鐃緒申鐃�Ž\鐃緒申�鐃緒申Ž\鐃緒申�鐃緒申)鐃緒申�鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申DBIC鐃緒申鐃緒申鐃出�緒申鐃緒申鐃緒申鐃暑î�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�DB\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃�³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申��緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

perl -MDBIx::Class::Schema::Loader=make_schema_at,dump_to_dir:./ -e 'make_schema_at "MyApp::Schema", {debug => 1}, ["dbi:mysql:myapp","sasata299","secret"]'

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃渋￥申¼鐃緒申鐃�¹鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�MyApp\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃�½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申½鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�DBIx::Class::Schema鐃緒申鐃緒申鐃緒申·鐃緒申鐃�¾µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申Schema\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申��申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申

./script/myapp_create.pl model DBIC DBIC::Schema MyApp::Schema dbi:mysql:myapp sasata299 secret

鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�ÐOK鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃暑î�緒申鐃緒申鐃�¼鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�²鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申臓鐃暑ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃�µ鐃緒申陝�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申(>_<)

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃緒申鐃渋￥申DBIC鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋�緒申Catalyst鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申��申鐃緒申鐃�DB\¹\鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申