YanoRyuichi.com/
Wiki
Blog
GitHub
Sandbox
開始行:
* DBICスキーマクラスの作成 [#d9607ac9]
** ヘルパースクリプトを使う [#i906b2a9]
script/myapp_create.pl model MyModel DBIC::Schema MySche...
上記のコマンドを実行すると、内部では[[DBIx::Class::Schema...
- lib/MyApp/Model/MyModel.pm
- lib/MySchema.pm
- lib/MySchema/Result/TableA.pm
- lib/MySchema/Result/TableB.pm
- lib/MySchema/Result/TableC.pm
*** 注意 [#ld8f75c7]
MyModel.pmにはDBユーザ名とパスワードがハードコーディング...
connect_info => [
MyApp->config->{dsn},
MyApp->config->{db_user},
MyApp->config->{db_password},
]
*** 参考 [#m70ecb24]
- http://search.cpan.org/perldoc?Catalyst::Helper::Model:...
- コマンドオプションの詳細はhttp://search.cpan.org/perldo...
** モデルクラスはコントローラ等にて以下のようにして利用で...
sub index : Local {
my ( $self, $c, $id ) = @_;
my $row = $c->model('MyModel::TableA')->find($id);
}
** ヘルパースクリプトを使わないなら [#s0b9a5f2]
DBIx::Class::Schema::Loaderを使うか、完全に手で書く。詳し...
DBIx::Class::Schema::Loaderを使うなら、以下のようなスクリ...
#!/usr/local/bin/perl
use DBIx::Class::Schema::Loader qw/make_schema_at/;
make_schema_at(
'MyApp::MySchema::Result',
{
dump_directory => './lib',
moniker_map => sub {
my $table = shift;
join '', map ucfirst, split /[\W]+/, lc $table;
},
},
[ 'dbi:Pg:dbname=test_db;host=192.168.0.200', 'db_use...
);
** 参考 [#jbf980fb]
- http://search.cpan.org/perldoc?Catalyst::Manual::Intro
- http://search.cpan.org/perldoc?myapp_create.pl
終了行:
* DBICスキーマクラスの作成 [#d9607ac9]
** ヘルパースクリプトを使う [#i906b2a9]
script/myapp_create.pl model MyModel DBIC::Schema MySche...
上記のコマンドを実行すると、内部では[[DBIx::Class::Schema...
- lib/MyApp/Model/MyModel.pm
- lib/MySchema.pm
- lib/MySchema/Result/TableA.pm
- lib/MySchema/Result/TableB.pm
- lib/MySchema/Result/TableC.pm
*** 注意 [#ld8f75c7]
MyModel.pmにはDBユーザ名とパスワードがハードコーディング...
connect_info => [
MyApp->config->{dsn},
MyApp->config->{db_user},
MyApp->config->{db_password},
]
*** 参考 [#m70ecb24]
- http://search.cpan.org/perldoc?Catalyst::Helper::Model:...
- コマンドオプションの詳細はhttp://search.cpan.org/perldo...
** モデルクラスはコントローラ等にて以下のようにして利用で...
sub index : Local {
my ( $self, $c, $id ) = @_;
my $row = $c->model('MyModel::TableA')->find($id);
}
** ヘルパースクリプトを使わないなら [#s0b9a5f2]
DBIx::Class::Schema::Loaderを使うか、完全に手で書く。詳し...
DBIx::Class::Schema::Loaderを使うなら、以下のようなスクリ...
#!/usr/local/bin/perl
use DBIx::Class::Schema::Loader qw/make_schema_at/;
make_schema_at(
'MyApp::MySchema::Result',
{
dump_directory => './lib',
moniker_map => sub {
my $table = shift;
join '', map ucfirst, split /[\W]+/, lc $table;
},
},
[ 'dbi:Pg:dbname=test_db;host=192.168.0.200', 'db_use...
);
** 参考 [#jbf980fb]
- http://search.cpan.org/perldoc?Catalyst::Manual::Intro
- http://search.cpan.org/perldoc?myapp_create.pl
ページ名:
