Yanor.net/
Wiki
Blog
GitHub
Sandbox
開始行:
* ROWオブジェクトを拡張してCASE式の代わり [#tc1d530c]
スキーマクラスにメソッドを追加して、CASE式の代わりにする...
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';
}
終了行:
* ROWオブジェクトを拡張してCASE式の代わり [#tc1d530c]
スキーマクラスにメソッドを追加して、CASE式の代わりにする...
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';
}
ページ名: