- 追加された行はこの色です。
- 削除された行はこの色です。
* 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;