2006-03-09から1日間の記事一覧
typoさんのUTF8Columns.pmからほぼパクリ package DBIx::Class::MD5Columns; use strict; use warnings; use base qw/DBIx::Class/; use Digest::MD5 qw(md5_hex); __PACKAGE__->mk_classdata( force_md5_columns => [] ); sub md5_columns { my $self = shi…