autobox::Encode - Encode with autobox

autobox-Encode documentation Contained in the autobox-Encode distribution.

Index

Code Index:

NAME

Top

autobox::Encode - Encode with autobox

SYNOPSIS

Top

  use autobox::Encode;

  "Foo"->decode('utf-8')->encode('utf-8')

  my $latin1_bytes = ...;
  my $utf8_bytes   = $latin1_bytes->from_to('latin-1' => 'utf-8');

  "\x{1234}"->charname; # "ETHIOPIC SYLLABLE SEE"

DESCRIPTION

Top

use Encode with autobox!

AUTHOR

Top

Tokuhiro Matsuno <tokuhirom gmail com>

THANKS

Top

Tatsuhiko Miyagawa and coderepos committers.

chocolateboy++(enhancment autobox!!)

COPYRIGHT

Top

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

autobox-Encode documentation Contained in the autobox-Encode distribution. 
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__