File Coverage

blib/lib/Encode/Unicode/Japanese.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	50	52	96.1

## ----------------------------------------------------------------------------
#  Encode::Unicode::Japanese
# -----------------------------------------------------------------------------
# Mastering programmed by YAMASHINA Hio
#
# Copyright 2006 YAMASHINA Hio
# -----------------------------------------------------------------------------
# $Id: Japanese.pm 4 2006-06-15 15:49:18Z hio $
# -----------------------------------------------------------------------------
package Encode::Unicode::Japanese;
use warnings;
use strict;
our $VERSION = '0.02';

use base qw(Encode::Encoding);
use Unicode::Japanese;

&_register_encodings;

1;

# -----------------------------------------------------------------------------
# Methods.
# -----------------------------------------------------------------------------

sub new($ $)
{
  my $pkg = shift;
	my $code = shift;
	bless \$code, $pkg;
}

sub encode($$;$)
{
  my ($obj, $str, $chk) = @_;
	my $code = $$obj;
  $str = Unicode::Japanese->new($str)->conv($code);
  $_[1] = '' if $chk; # this is what in-place edit means
  return $str;
}

sub decode($$;$)
{
  my ($obj, $buf, $chk) = @_;
	my $code = $$obj;
  $buf = Unicode::Japanese->new($buf, $code)->getu;
  $_[1] = '' if $chk; # this is what in-place edit means
  return $buf;
}

sub _register_encodings
{
  # triple Japanese encodings.
	#
  __PACKAGE__->new("sjis")->Define('unijp-sjis');
  __PACKAGE__->new("euc" )->Define('unijp-euc');
  __PACKAGE__->new("jis" )->Define('unijp-jis');

  # emoji, and variation.
  #  ex. imode, imode1, imode2
  __PACKAGE__->new("sjis-imode" )->Define("unijp-sjis-imode");
  __PACKAGE__->new("sjis-imode1")->Define("unijp-sjis-imode1");
  __PACKAGE__->new("sjis-imode2")->Define("unijp-sjis-imode2");
  __PACKAGE__->new("sjis-jsky" )->Define("unijp-sjis-jsky");
  __PACKAGE__->new("sjis-jsky1")->Define("unijp-sjis-jsky1");
  __PACKAGE__->new("sjis-jsky2")->Define("unijp-sjis-jsky2");

  # unicode variation.
  __PACKAGE__->new('utf8' )->Define("unijp-utf8");
  __PACKAGE__->new('ucs2' )->Define("unijp-ucs2");
  __PACKAGE__->new('utf16')->Define("unijp-utf16");
}

__END__