File Coverage

blib/lib/Config/Maker/Encode.pm

Criterion	Covered	Total	%
statement	17	26	65.3
branch	0	6	0.0
condition			n/a
subroutine	6	8	75.0
pod			n/a
total	23	40	57.5

package Config::Maker::Encode;

use utf8;
use warnings;
use strict;

use Carp;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(encode decode encmode $utf8);
our @EXPORT_OK = @EXPORT;

sub encode($$;$);
sub decode($$;$);
sub encmode(*$);

our $utf8;

sub _encode_only_system($$;$) {
    my ($enc, $text, $check) = @_;
    unless($enc eq 'system') {
	if($check == 1) {
	    croak "Encoding not available. Can't convert encoding $enc";
	} else {
	    carp "Encoding not available. Can't convert encoding $enc";
	}
    }
    return $text;
}

sub _binmode_only_system(*$) {
    my ($handle, $enc) = @_;
    unless($enc eq 'system') {
	carp "Encoding not available. Can't set encoding to $enc";
    }
}

sub _binmode_encoding(*$) {
    my ($handle, $enc) = @_;
    binmode $handle, ":encoding($enc)";
}

eval {
    require I18N::Langinfo;
    require Encode;
    require Encode::Alias;
    require PerlIO::encoding;
    $::ENCODING = I18N::Langinfo::langinfo(&I18N::Langinfo::CODESET);
    if(!$::ENCODING) {
	$::ENCODING_LOG = "Can't get your locale encoding! Assuming ASCII.";
	Encode::find_encoding($::ENCODING = 'ascii')
	    or die "Can't get ascii codec!";
    } elsif(!Encode::find_encoding($::ENCODING)) {
	$::ENCODING_LOG = "Your locale encoding `$::ENCODING' it's not supported by Encode!";
	Encode::find_encoding($::ENCODING = 'ascii')
	    or die "Can't get ascii codec!";
    }
    Encode::Alias::define_alias('system' => $::ENCODING);
};

if($@) { # Encoding stuff not available!
    undef $::ENCODING;
    *encode = \&_encode_only_system;
    *decode = \&_encode_only_system;
    *encmode = \&_binmode_only_system;
    $utf8 = '';
} else { # Wow! Encoding is available!
    *encode = \&Encode::encode;
    *decode = \&Encode::decode;
    *encmode = \&_binmode_encoding;
    $utf8 = ':utf8';
    binmode STDERR, ':encoding(system)';
}

1;

__END__