スキーマの設定方法(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;
    };
  };

トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS