* 基底ROWクラスの拡張 [#i07fe3d9]

以下のようなクラスを作成する。
ちなみに、テーブル個別のクラスを拡張する場合は、MyDB::Row::Member等を作成する。

 package MyDB::Row;
 
 use base 'DBIx::Skinny::Row';
 use strict;
 use warnings;
 
 sub to_hash {
    my $self = shift;
    my %buf;
    foreach my $k ( keys( %{ $self->get_columns } ) ) {
        $buf{$k} = $self->$k;
    }
    return \%buf;
 }
 
 1;


トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS