Perl-DBIx-Skinny/スキーマの設定方法（inflate deflate）のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl-DBIx-Skinny/スキーマの設定方法（inflate deflate）へ行く。
- 1 (2010-10-23 (土) 19:11:16)
- 2 (2010-10-23 (土) 19:11:33)

スキーマの設定方法（inflate / deflate）

MyDB/Schema.pm

 install_inflate_rule
  '^sex$' =>
  callback {
    inflate {
        my $value = shift;
        return $value eq '1' ? 'man' : 'woman';
    };
    deflate {
        my $value = shift;
        return defined $value == 1 ? 1 : 2;
    };
  };