File Coverage

blib/lib/Convert/EastAsianWidth.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	8	8	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	42	44	95.4

package Convert::EastAsianWidth;

use 5.008;
use strict;
use Exporter;

our $VERSION = '1.02';
our @ISA = 'Exporter';
our @EXPORT = qw(to_fullwidth to_halfwidth);

sub to_fullwidth {
    my $text;
    my $enc  = $_[1];

    if ($enc) {
	require Encode;
	$text = Encode::decode($enc => $_[0]);
    }
    else {
	$text = $_[0];
    }

    $text =~ tr/ -~/\x{3000}\x{FF01}-\x{FF5E}/;

    return ( $enc ? Encode::encode($enc => $text) : $text );
}

sub to_halfwidth {
    my $text;
    my $enc = $_[1];

    if ($enc) {
	require Encode;
	$text = Encode::decode($enc => $_[0]);
    }
    else {
	$text = $_[0];
    }

    $text =~ tr/\x{3000}\x{FF01}-\x{FF5E}/ -~/;

    return ( $enc ? Encode::encode($enc => $text) : $text );
}
1;

__END__