Perl-DBIC/ROWオブジェクト/CASE式の代わりのバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl-DBIC/ROWオブジェクト/CASE式の代わりへ行く。
- 1 (2008-09-05 (金) 09:30:42)
- 2 (2008-09-05 (金) 09:31:47)

CASE式の代わり

スキーマクラスにメソッドを追加して、CASE式の代わりにする。以下はstatus_flgカラムの値から条件分岐して説明文言を返すカラムを追加している。

 package Schema::Member;
 
 use base 'DBIx::Class';
 
 __PACKAGE__->load_components(qw/ PK::Auto Core/);
 __PACKAGE__->table('member');
 __PACKAGE__->add_columns(qw/
 member_id
 status_flg
 /);
 sub status_flg_desc {
     my $self = shift;
     my $status_flg = $self->status_flg;
     return
         $status_flg eq '1' ? '有効'
       : $status_flg eq '0' ? '無効'
       :                      'N/A';
 }