File Coverage

blib/lib/Encode/StdIO.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	0	1	0.0
total	35	38	92.1

# $Id: /mirror/coderepos/lang/perl/Encode-StdIO/trunk/lib/Encode/StdIO.pm 50483 2008-04-15T14:45:42.926236Z daisuke  $

package Encode::StdIO;
use strict;
use warnings;
use 5.008;
our $VERSION = '0.00001';

sub import
{
    my $class = shift;
    my %args  = @_;

    my $encoding = $class->find_encoding(%args);
    binmode(STDOUT, ":encoding($encoding)");
    binmode(STDERR, ":encoding($encoding)");
    binmode(STDIN,  ":encoding($encoding)");
}

sub find_encoding
{
    my $class = shift;
    my %args  = @_;

    my $encoding = $args{encoding};
    if (! $encoding) {
        eval {
            require Term::Encoding;
            $encoding = Term::Encoding::get_encoding();
        };
    }
    $encoding ||= "utf-8";
    return $encoding;
}

1;

__END__