DBは SQL書き方ドリル のサンプルです。 そこから DBIx::Class::Schema::Loader をつかって schema dump して relation とか書きました。 毎日ちょっとずつやっていこうかと思っております。 Util dumpするやつ。 sub p { my ($rs) = @_; my @rows = $rs->isa('DBIx::Class::ResultSet') ? $rs->all : @_; my $colums_ref_encode = sub { my $hsh = {$_[0]->get_columns}; $dev->encode('utf8', $hsh); $hsh; }; my $ret = [ map{ $colums_ref_encode->($_) } @rows ]; use Data::Dumper; print Dum