File Coverage

blib/lib/autobox/Encode.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	34	34	100.0

package autobox::Encode;
use strict;
use warnings;
use base qw/autobox/;

our $VERSION = '0.03';

sub import {
    shift->SUPER::import( SCALAR => 'autobox::Encode::Scalar' );
}

package # hide from pause :-)
    autobox::Encode::Scalar;

use Encode ();
use charnames ();

sub encode { Encode::encode($_[1], $_[0], $_[2]) }
sub decode { Encode::decode($_[1], $_[0], $_[2]) }
sub is_utf8 { Encode::is_utf8($_[0]) }
sub from_to { Encode::from_to($_[0], $_[1], $_[2]); $_[0] }

sub charname {
    my $string = shift;
    join '', map charnames::viacode(ord), split //, $string;
}

1;

__END__