基底ROWクラスの拡張

以下のようなクラスを作成する。 ちなみに、テーブル個別のクラスを拡張する場合は、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

Last-modified: 2011-02-15 (火) 08:18:51 (2800d)