Yanor.net/
Wiki
Blog
GitHub
Sandbox
開始行:
* 基底ROWクラスの拡張 [#i07fe3d9]
以下のようなクラスを作成する。
ちなみに、テーブル個別のクラスを拡張する場合は、MyDB::Row...
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;
終了行:
* 基底ROWクラスの拡張 [#i07fe3d9]
以下のようなクラスを作成する。
ちなみに、テーブル個別のクラスを拡張する場合は、MyDB::Row...
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;
ページ名:
