ふと Class::DBI で、update_from_sql() というメソッドを定義したくなった。 あんま面白くないので、読みたい人だけ読みたまへ。 で、こんな感じのものを、親 class 内に定義してみた。 __PACKAGE__->set_sql(UpdateFromSQL =><<''); UPDATE __TABLE__ SET %s WHERE %s sub update_from_sql { my($class, $values, $sql, @bind_args) = @_; my @update_columns = (); my @update_values = (); while (my($colname, $value) = each %$values) { push @update_columns, $colname; push @update_values, $
Class::DBI::SweetでのJOIN Class::DBI::Sweetのjoinをつかった検索を試してみた。 ソースコードは作っているアプリケーションからの抜きだしなので足りないところがあるかも。 EntryとそのTagを想定して、 package Entries; __PACKAGE__->table('entries'); __PACKAGE__->columns(All=>qw/id title text created_on/); __PACKAGE__->has_many("tags"=>'Tags'); 1; package Tags; __PACKAGE__->table('tags'); __PACKAGE__->columns(All=>qw/id entry_id tag/); __PACKAGE__->has_a('entry_id'=>'Entries'
Catalystには、Catalyst::Helper::Model::CDBIというデータクラスを自動生成するためのヘルバーモジュールがデフォルトで付いてきます。これを使って作成されるデータクラス(例えばMyApp::M::CDBI)の親クラスはCatalyst::Model::CDBIとなっていて、その上の親クラスはCatalyst::BaseとClass::DBIとなっています。図にすると下記のような感じ Catalyst::Base, Class::DBI ↑ Catalyst::Model::CDBI ↑ MyApp::M::CDBI あるとき僕はこのデータクラスをコマンドラインで実行するスクリプトから読み込んで使おうとしたときに困ってしまいました。なぜなら、CatalystはWebで使うのを前提に設計されていて、コマンドラインからの実装は想定されていないさそうだからです。 生成
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
