Class::DBI::mysqlを遊んでみる

Perl

http://search.cpan.org/~tmtm/Class-DBI-mysql-0.23/lib/Class/DBI/mysql.pmより

ちょーラクチンモジュール

サンプル



package Neko::User;

use strict;

use warnings;

use base qw/Class::DBI::mysql/;

__PACKAGE__->set_db('Main', 'dbi:mysql:nekodb', 'nekokak', '******');

__PACKAGE__->set_up_table("user");

1;

Class::DBI::mysqlを継承してset_up_tableメソッドでテーブルをセットするだけ。

すげー楽。

でもって、複数テーブルで設定したい場合、

サンプル

ベースクラス



package Neko::DBI;

use strict;

use warnings;

use base qw/Class::DBI::mysql/;

__PACKAGE__->set_db('Main', 'dbi:mysql:nekodb', 'nekokak', '*****');

1;

ベースクラスを継承



package Neko::User;

use strict;

use warnings;

use base qw/Neko::DBI/;

__PACKAGE__->set_up_table("user");

1;

ベースクラスを継承



package Neko::UserRSS;

use strict;

use warnings;

use base qw/Neko::DBI/;

__PACKAGE__->set_up_table("user_rss");

1;

こんなのでOK

autoinflateメソッドも便利