File Coverage

blib/lib/usw.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	4	75.0
condition	1	2	50.0
subroutine	7	7	100.0
pod			n/a
total	35	37	94.5

package usw;
use 5.012005;
use parent qw(utf8 strict warnings);
use Encode qw(is_utf8 encode_utf8 decode_utf8);

our $VERSION = "0.11";
my $enc;
sub _get_encoding {$enc}

sub import {
    $_->import for qw( utf8 strict warnings );   # borrowed from https://metacpan.org/pod/Mojo::Base
    require encoding;
    my $cp = encoding::_get_locale_encoding();    # borrowed from https://metacpan.org/pod/open
    $enc = $cp =~ /^utf-8/ ? 'UTF-8' : $cp;

    $| = 1;                                       # is this irrelevant?
    binmode \*STDIN  => ":encoding($enc)";
    binmode \*STDOUT => ":encoding($enc)";
    binmode \*STDERR => ":encoding($enc)";

    $SIG{__WARN__} = \&_redecode;
    $SIG{__DIE__}  = sub { die _redecode(@_) };
    return;
}

sub _redecode {
    $_[0] =~ /^(.+) at (.+) line (\d+)\.$/;
    my @texts = split $2, $_[0];
    return is_utf8($1)
        ? $texts[0] || '' . decode_utf8($2) . $texts[1] || ''
        : decode_utf8 $_[0];
}

1;

__END__