use utf8;
no if $] >= 5.018, warnings => 'experimental::smartmatch';
-use open OUT => ':utf8', ':std';
+use open OUT => ':encoding(utf-8)', ':std';
use Data::Dump 'pp';
our $VERSION = '1.02';
use warnings;
use utf8;
use re '/msx';
-use open OUT => ':utf8', ':std';
+use open OUT => ':encoding(utf-8)', ':std';
our $VERSION = '1.00';
use warnings;
use utf8;
-use open OUT => ':utf8', ':std';
+use open OUT => ':encoding(utf-8)', ':std';
our $VERSION = '1.06';
use 5.014;
use warnings;
use utf8;
-use open IO => ':utf8', ':std';
+use open IO => ':encoding(utf-8)', ':std';
use Data::Dump 'pp';
our $VERSION = '1.01';
use 5.014;
use warnings;
use utf8;
-use open OUT => ':utf8', ':std';
+use open OUT => ':encoding(utf-8)', ':std';
use charnames ':full';
use Data::Dump 'pp';
#!/usr/bin/env perl
use 5.014;
use warnings;
-use open IN => ':utf8', ':std';
+use open IN => ':encoding(utf-8)', ':std';
our $VERSION = '1.03';
use 5.014;
use warnings;
use utf8;
-use open IO => ':utf8', ':std';
+use open IO => ':encoding(utf-8)', ':std';
use re '/msx';
use Data::Dump 'pp';
use warnings;
use utf8;
-use open OUT => ':utf8', ':std';
+use open OUT => ':encoding(utf-8)', ':std';
use File::Basename 'basename';
use Data::Dump 'pp';
BEGIN { push @INC, '.' }
use Shiar_Sheet::DB;
-use open ':std' => ':utf8';
+use open ':std' => ':encoding(utf-8)';
my $db = Shiar_Sheet::DB->connect;
say 'use utf8;';