Perl-DBIC/環境設定/全体の流れのバックアップ(No.1) - yanor.net/wiki

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl-DBIC/環境設定/全体の流れへ行く。
- 1 (2007-03-29 (木) 11:59:13)
- 2 (2009-05-02 (土) 04:57:02)
- 3 (2009-09-06 (日) 05:10:59)

DBIx::Class 基本

テーブル構成

テーブル t1

id int (PK)
num int

ファイル構成

 main.pl
 lib/
 |-- DB
 |   `-- T1.pm
 `-- DB.pm

ファイル詳細

main.pl

 #!/usr/bin/perl
 
 use strict;
 use lib 'lib';
 use DB;
 use Data::Dumper;
 
 my $schema = DB->connect('dbi:SQLite:dbname=test.db', '', '');
 my $rs = $schema->resultset('T1');
 my @rows = $rs->all;
 foreach my $r (@rows) {
    print $r->id,": ",$r->num,"\n";
 }

lib/DB.pm

 package DB;
 
 use strict;
 use base qw/DBIx::Class::Schema/;
 
 __PACKAGE__->load_classes(qw/T1/);
 
 1;

lib/DB/T1.pm

 package DB::T1;
 
 use strict;
 use base qw/DBIx::Class/;
 
 __PACKAGE__->load_components(qw/PK::Auto Core/);
 __PACKAGE__->table('t1');
 __PACKAGE__->add_columns(qw/ id num /);
 __PACKAGE__->set_primary_key('id');
 
 1;