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

バックアップ一覧
現在との差分を表示
ソースを表示
バックアップを表示
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 基本 [#k203f830]
** テーブル構成 [#vad6e51f]
テーブル t1
- id int (PK)
- num int

** ファイル構成 [#va03ff47]
 main.pl
 lib/
 |-- DB
 |   `-- T1.pm
 `-- DB.pm

** ファイル詳細 [#e63ee31a]
*** main.pl [#ff6fd8d6]
 #!/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 [#b34898d5]
 package DB;
 
 use strict;
 use base qw/DBIx::Class::Schema/;
 
 __PACKAGE__->load_classes(qw/T1/);
 
 1;

*** lib/DB/T1.pm [#h5c5b30c]
 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;