File Coverage

blib/lib/Encode/ISO2022JP2.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	29	31	93.5

package Encode::ISO2022JP2;

use strict;
use warnings;
use base qw(Encode::ISO2022);
our $VERSION = '0.02';

use Encode::ISOIRSingle;
use Encode::JISLegacy;
use Encode::CN;
use Encode::KR;

__PACKAGE__->Define(
    Alias => qr/\biso-?2022-?jp-?2$/i,
    Name  => 'iso-2022-jp-2',
    CCS   => [
	{   cl       => 1,
	    encoding => 'ascii',
	    g_init   => 'g0',
	    g_seq    => "\e\x28\x42",
	},
	# Japanese
	{   encoding => 'iso-646-jp',
	    g        => 'g0',
	    g_seq    => "\e\x28\x4A",
	    #ss       => '', # encodes runs as short as possible.
	},
	{   bytes    => 2,
	    encoding => 'jis0208-raw',
	    g        => 'g0',
	    g_seq    => "\e\x24\x42",
	    range    => '\x21-\x7E',
	},
	{   bytes    => 2,
	    dec_only => 1,
	    encoding => 'jis-x-0208-1978',
	    g        => 'g0',
	    g_seq    => "\e\x24\x40",
	    range    => '\x21-\x7E',
	},
	{   bytes    => 2,
	    encoding => 'jis-x-0212-ascii',
	    g        => 'g0',
	    g_seq    => "\e\x24\x28\x44",
	    range    => '\x21-\x7E',
	},
	# European
	{   encoding => 'iso-8859-1-right',
	    g        => 'g2',
	    g_seq    => "\e\x2E\x41",
	    ss       => "\e\x4E",
	},
	{   encoding => 'iso-8859-7-right',
	    g        => 'g2',
	    g_seq    => "\e\x2E\x46",
	    ss       => "\e\x4E",
	},
	# Chinese
	{   bytes    => 2,
	    encoding => 'gb2312-raw',
	    g        => 'g0',
	    g_seq    => "\e\x24\x41",
	    range    => '\x21-\x7E',
	},
	# Korean
	{   bytes    => 2,
	    encoding => 'ksc5601-raw',
	    g        => 'g0',
	    g_seq    => "\e\x24\x28\x43",
	    range    => '\x21-\x7E',
	},
	# Nonstandard
	{   encoding => 'jis-x-0201-right',
	    g        => 'g0',
	    g_seq    => "\e\x28\x49",
	},
    ],
    LineInit => 1,
    SubChar  => "\x{3013}",
);

sub needs_lines { 1 }

1;
__END__