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