DBIC のスキーマをモデルクラスとして使ってみる - daily dayflower
ドキュメントに書いてないので今後も使えるかわかんないけど、メモメモΦ 普通 DBIC で新しいレコードを挿入するには、 use strict; use warnings; package My::Schema::Artist; use base qw( DBIx::Class ); __PACKAGE__->load_components(qw( Core )); __PACKAGE__->table('artist'); __PACKAGE__->add_columns( id => { data_type => 'INTEGER', is_nullable => 0, is_auto_increment => 1, }, name => { data_type => 'VARCHAR', is_nullable => 0, }, ); __PACKAGE__->set_primary_
DBIC で後付けの relationship を定義してたらうまく動かなくなった - daily dayflower
昔かいた DBIC を使うコードが，DBIC を新しくしたら動かなくなった。 うまくいく例 use strict; use warnings; # artist の定義 package My::Schema::Result::Artist; use base qw( DBIx::Class ); __PACKAGE__->load_components(qw( Core )); __PACKAGE__->table('artist'); __PACKAGE__->add_columns(qw( id name )); __PACKAGE__->set_primary_key('id'); # album の定義 package My::Schema::Result::Album; use base qw( DBIx::Class ); __PACKAGE__->load_component
DBICx::Modeler::Generatorでスキーマクラス群とモデルクラス群を一発生成しよう - JPerl Advent Calendar 2009
DBICx::Modeler::Generatorでスキーマクラス群とモデルクラス群を一発生成しよう - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ ご挨拶 はじめまして、gardejoこと守屋と申します。金融ユー子で働いています。YAPC::Asia 2009の特別研修で、（16日目を執筆された）dankogaiさんの研修の後に、（15日目を執筆された）lestrratさんなどの特別補講を受ける機会に恵まれたのですが、「業務でCOBOLを使っている人？」という質問にただ独り挙手して、たいそう恥ずかしい思いをしました。 そんな勤め先では定例作業撲滅のためなどにPerlをゲリラ的に活用していますが、現場レベルでの対症療法であるに過ぎません。私にとってのPerlとは、エスペラント日本語翻訳システムの開発な
Don't use DBIx::Class::UTF8Columns - JPerl Advent Calendar 2009
Don't use DBIx::Class::UTF8Columns - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ 自分のつくったもジュールを紹介するハッカートラックということで、僕は DBIx::Class に同封されている DBIx::Class::UTF8Columns について書きます。 まず最初に、このモジュールをつかわないでください。 DBIx::Class::UTF8Columns は DBIx::Class のコアモジュールになってから、utf8 を扱う場合はこのモジュールを使うといいよという記述をいろいろなところで目にします。しかしこのモジュールがしていることを理解せずに使用すると予期せぬ不具合に悩まされるかもしれません。今日はこのモジュールを使わない方が良い理由と、その代替案を示
namespaceを使ったDBIx::Classのスキーマ構成 - hide-k.net#blog
良くあるDBICのサンプルではDBIx::Class::Schema::load_classes()を使ってクラスのロードを行っています。 CD.pm package CD; use strict; use warnings; use base 'DBIx::Class::Schema'; __PACKAGE__->load_classes; 1; load_classes()はクラスを指定しないと CD Album Track という構成において自動的にクラスをロードすることができます。 ここでResultSetの拡張をしたいと考えます。例えば CD/ResultSet/Album.pm package CD::ResultSet::Album; use strict; use warnings; use base 'DBIx::Class::ResultSet'; sub search
Using DBIx::Class to Version Your Schema
Intro to DBIx::Class In my opinion DBIx::Class is one of the best ORM solutions out there. Not only can it model your database, including mapping out any foreign key relationships, it can also be used as a canonical point of reference for your schema. This means we can use it not only as an application layer interface to the database, but can also define a versioned database structure using the
Test::Fixture::DBIC::Schema - taiyoh独言
DB周りのロジックテストをしたくて導入してみたのですが、リレーションがらみでcreate_relatedメソッドなんかを使ってると、create時にコケてしまうので、 --- Schema.pm 2008-05-10 14:39:59.000000000 +0900 +++ Schema.pm.new 2009-02-27 16:28:24.000000000 +0900 @@ -71,8 +71,7 @@ my $result = {}; for my $row ( @{ $fixture } ) { - $schema->resultset( $row->{schema} )->create( $row->{data} ); - $result->{ $row->{name} } = $schema->resultset( $row->{schema} )->find( $row->{
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Visualizing your DBIC schema
If you want a somewhat pretty picture of your DBIC schema (with relationships drawn, of course), install GraphViz, SQL::Translator, and DBICx::Deploy from the CPAN, and then run: $ dbicdeploy -Ilib MyApp::Schema ~/graphs GraphViz ~/graphs will then contain a .sql file that is actually a png of your schema. Rename it and see your schema in your favorite png viewing application. Oh yeah, the post ne
DBIC::Schema::Loaderのカスタマイズと言うネタでプレゼンするはずだった件 - 日向夏特殊応援部隊
話してないけど、資料はあるので公開しまっする。 Customization of DBIC::Schema::Loader 概要 開発中にスキーマに変更が発生して、make_schema_at()を何度も叩く際に困ることと、Schema::Loaderで比較的意図した通りにSchema, Tableクラスを生成する為に、こんな風にするといいおって内容です。 せっかちな人向け こんな感じ。 内容の解説はプレゼン資料を見てくだしあ。 #!/usr/bin/perl use strict; use warnings; use FindBin; use File::Spec; use lib ( File::Spec->catfile( $FindBin::Bin, qw/.. lib/ ), File::Spec->catfile( $FindBin::Bin, qw/.. schema/ )
mysql_enable_utf8 => 1 で DBIC::UTF8Columns 要らなくなるっぽい - 僕ト云フ事＠はてな出張版
追記です コメントとブクマで今のところ experimental と書いてあるよ！ と教えてもらいました。気づいてなかったです。id:nihen さん、コメントくれた人、ありがとう。 This option is experimental and may change in future versions. Catalyst::Wiki もこれ書いた方が良さそうですね。書けるのかな。 それにしても、DBD 側でできると良いに越したことないので、早く確定して欲しいですね！ 追記2 あー、でもこれ、4.00からずっとこのままだ。かれこれ2年くらい experimental なんですがw Catalyst::Wiki に書いて来ちゃったけどw ここから元の内容 lyokato さん経由で woremacx さんに教えてもらった Using Unicode - Catalyst::Wiki に書い
DBIC Tips Vol.2 - bokut.in
prefetch & +asした場合は+asのターゲットを定められるよ グループ has_many ユーザーというのを例にします。 パスワードの長さを調べようと・・・ $schema->resultset('Group')->search( { }, { prefetch => 'users', '+as' => 'password_length', '+select' => { length => 'users.password' }, } ); とした場合、group->users->first->get_column('password_length') は例外になってしまいます。 正解は $schema->resultset('Group')->search( { }, { prefetch => 'users', '+as' => 'users.password_length',
DBICでハマらないために Vol.1 - bokut.in
prefetch(multi)した際は、order_byに気をつけること。 $schema->resultset('Area')->search( { }, { prefetch => 'prefectures', } ); この場合DBICはイテレータ、AreaとArea->Prefecturesに付随するデータをSQL一文で取得するわけです。 prefecturesはareaにとってhas_many(multi)です。 SQLはこんなかんじ。 SELECT me.id, me.name, prefectures.id, prefectures.hira_name, prefectures.name, prefectures.ascii_name, prefectures.abbr_name, prefectures.area_id, prefectures.position FROM
DBIC Tips Vol.2 (bokut.in)
prefetch & +asした場合は+asのターゲットを定められるよ グループ has_many ユーザーというのを例にします。 パスワードの長さを調べようと・・・ $schema->resultset('Group')->search( { }, { prefetch => 'users', '+as' => 'password_length', '+select' => { length => 'users.password' }, } ); とした場合、group->users->first->get_column('password_length') は例外になってしまいます。 正解は $schema->resultset('Group')->search( { }, { prefetch => 'users', '+as' => 'users.password_length',
DBICでハマらないために Vol.1 (bokut.in)
prefetch(multi)した際は、order_byに気をつけること。 $schema->resultset('Area')->search( { }, { prefetch => 'prefectures', } ); この場合DBICはイテレータ、AreaとArea->Prefecturesに付随するデータをSQL一文で取得するわけです。 prefecturesはareaにとってhas_many(multi)です。 SQLはこんなかんじ。 SELECT me.id, me.name, prefectures.id, prefectures.hira_name, prefectures.name, prefectures.ascii_name, prefectures.abbr_name, prefectures.area_id, prefectures.position FROM
Catalyst+DBIC+TT+Data::Page::Navigationでページング - はてな#hide-k
これもよく使うくせによく忘れるので備忘。 まずはCatalystのControllerでData::Page::Navigationをuseして MyApp::Controller::User package MyApp::Controller::User use strict; use warnings; use parent 'Catalyst::Controller'; use Data::Page::Navigation; sub index : Path : Args(0) { my ( $self, $c ) = @_; my $page = $c->req->param('page') || 1; my $rows = $c->req->param('rows') || 10; my $users = $c->model('DBIC::Users')->search( {},
hide-k.net#blog: DBIx::Class::ResultManagerのdeprecatedに備える
DBIx::Class::ResultSetManager - scheduled for deletion in 09000 - search.cpan.org DBIx::Class::ResultSetManager never left experimental status and has now been DEPRECATED. This module will be deleted in 09000 so please migrate any and all code using it to explicit resultset classes using either __PACKAGE__->resultset_class(...) calls or by switching from using DBIx::Class::Schema->load_classes()
DBIx::Class経由で取得する文字列にUTF-8 flagを付けたい[Catalyst] - ヒルズで働く@robarioの技ログ
以前からブログに書こうかどうか迷っていたものです。 DBIx::Class::UTF8Columnsでできるんですが、カラムを指定するのが面倒。 MySchemaはDBIx::Class::Schema::Loaderで自動生成してることもあって、あんまりMySchema/*をいじりたくない。 というわけで、inflate/deflate（DBIx::Class::InflateColumn）でやってます。 もっと簡単な方法あるんじゃないかなあ、と思って改めてCPANを探してみたのですがしっくりくるものが見当たらず。 とりあえず晒しておきます。 package MyApp::Model::MyModel; use base qw(Catalyst::Model::DBIC::Schema); my $inflate_utf8 = sub { my $value = shift; if (
![DBIx::Class経由で取得する文字列にUTF-8 flagを付けたい[Catalyst] - ヒルズで働く@robarioの技ログ](https://cdn-ak-scissors.b.st-hatena.com/image/square/68ea46100618cdf944003220464adecb1ecb6198/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F17680117127100682843%2F17680117127100696989%2F1556721975)
Sub::AutoでDBICにfindByほげほげを生やしてみた - Lism.in * blog - nekoya (id:studio-m)
Sub::AutoでAUTOLOADを隠蔽 - dann@webdev - dann's portal が面白そうだったのでDBIC::ResultSetにfindBy〜を生やしてみた。 perldoc見ても$selfがどこに入ってくるのか分からんかったけど、@_に関数名のマッチが入って、その次に来るみたい。 #!/usr/bin/perl use strict; use warnings; package DBIx::Class::ResultSet; use Sub::Auto; autosub /^findBy(\w+)$/ { my ( $method, $self, $value ) = @_; $method = lc $method; return undef unless grep /^$method$/, $self->result_source->columns; $s
続・DBICが発行するSQLのテーブル名をクォートさせたい - Lism.in * blog - nekoya (id:studio-m)
DBICが発行するSQLのテーブル名をクォートさせたい を書いたら、hide-Kさんがトラバくれて解決策を提示してくれた。しかも、id:miyagawaさんからもブクマコメントで同様のアドバイスが。 Re:DBICが発行するSQLのテーブル名をクォートさせたい - はてな#hide-k 今回はCatalystでアプリを書いていたので、conf/myapp.yamlのconnect_infoを Model::DB: connect_info: - dbi:mysql:dbname - username - password - AutoCommit: 1 RaiseError: 1 PrintError: 0 quote_char: ` name_sep: . てな具合にしてやったら解決した。ｽﾊﾞﾗｼｽ 最初、quote_charだけを設定して動かしたら、 SELECT `me.id`,
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
