package TestSchema; use strict; use warnings; use base qw/DBIx::Class::Schema/; my $DB_CONF = {db_name=>'rdstest', host=>'ないしょ.cbsplvtrcd5c.us-west-2.rds.amazonaws.com', port=>'3306', db_user=>'end0tknr', db_pass=>'ないしょ', db_opt=> …