基底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;