746572e280a62ee280... becomes
746572c3a2c280c2a6...
####
for(keys %$row){utf8::decode($row->{$_}) if utf8::is_utf8($row->{$_})}
####
CREATE TABLE `host_MyApp_DUFs` (
`DUF_id` bigint(20) unsigned NOT NULL AUTO_INCREMENT,
`member_id` bigint(20) unsigned NOT NULL COMMENT '',
`install_id` tinyint(1) unsigned NOT NULL COMMENT '',
`job_id` int(12) unsigned NOT NULL DEFAULT '0' COMMENT '',
`content` longtext COLLATE utf8_unicode_ci COMMENT '',
`token_id` bigint(20) unsigned DEFAULT NULL COMMENT 'links to `host_MyApp_tokens`',
PRIMARY KEY (`member_id`,`install_id`,`job_id`,`DUF_id`),
UNIQUE KEY `token_id` (`token_id`),
KEY `DUF_id` (`DUF_id`)
) ENGINE=InnoDB AUTO_INCREMENT=406 DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci COMMENT='';
/*!40101 SET character_set_client = @saved_cs_client */;
####
my $dbix = DBIx::Lite-> connect(
"dbi:mysql:dbname=$ENV{DB_NAME}",
$ENV{DB_USER},
$ENV{DB_PASSWORD},
{ mysql_enable_utf8 => 1 }
);
####
DB<6> x $st->fetchrow
0 'character_set_client'
1 'utf8'
DB<7> x $st->fetchrow
0 'character_set_connection'
1 'utf8'
DB<8> x $st->fetchrow
0 'character_set_database'
1 'utf8'
DB<9> x $st->fetchrow
0 'character_set_filesystem'
1 'utf8'
DB<10> x $st->fetchrow
0 'character_set_results'
1 'utf8'
DB<11> x $st->fetchrow
0 'character_set_server'
1 'utf8'
DB<12> x $st->fetchrow
0 'character_set_system'
1 'utf8'
DB<13> x $st->fetchrow
0 'character_sets_dir'
1 '/usr/share/mysql/charsets/'
####
746572e280a62ee280... becomes
746572c3a2c280c2a6...