use Data::Structure::Util qw/_utf8_on/;

$some_cdbi_class->add_trigger(select => sub { _utf8_on($_[0]) });