File Coverage

blib/lib/ShiftJIS/X0213/MapUTF.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package ShiftJIS::X0213::MapUTF;

require 5.006001;

use strict;
use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

require Exporter;
require DynaLoader;

@ISA = qw(Exporter DynaLoader);

$VERSION = '0.40';
$PACKAGE = 'ShiftJIS::X0213::MapUTF'; # __PACKAGE__

@EXPORT = qw(
    sjis0213_to_unicode  unicode_to_sjis0213
    sjis0213_to_utf8     utf8_to_sjis0213
    sjis0213_to_utf16le  utf16le_to_sjis0213
    sjis0213_to_utf16be  utf16be_to_sjis0213

    sjis2004_to_unicode  unicode_to_sjis2004
    sjis2004_to_utf8     utf8_to_sjis2004
    sjis2004_to_utf16le  utf16le_to_sjis2004
    sjis2004_to_utf16be  utf16be_to_sjis2004
);

%EXPORT_TAGS = (
    'unicode'  => [
	'sjis2004_to_unicode', 'unicode_to_sjis2004',
	'sjis0213_to_unicode', 'unicode_to_sjis0213',
    ],
    'utf8'     => [
	'sjis2004_to_utf8',    'utf8_to_sjis2004',
	'sjis0213_to_utf8',    'utf8_to_sjis0213',
    ],
    'utf16'    => [
	                       'utf16_to_sjis2004',
	                       'utf16_to_sjis0213',
    ],
    'utf16le'  => [
	'sjis2004_to_utf16le', 'utf16le_to_sjis2004',
	'sjis0213_to_utf16le', 'utf16le_to_sjis0213',
    ],
    'utf16be'  => [
	'sjis2004_to_utf16be', 'utf16be_to_sjis2004',
	'sjis0213_to_utf16be', 'utf16be_to_sjis0213',
    ],
    'utf32'    => [
	                       'utf32_to_sjis2004',
	                       'utf32_to_sjis0213',
    ],
    'utf32le'  => [
	'sjis2004_to_utf32le', 'utf32le_to_sjis2004',
	'sjis0213_to_utf32le', 'utf32le_to_sjis0213',
    ],
    'utf32be'  => [
	'sjis2004_to_utf32be', 'utf32be_to_sjis2004',
	'sjis0213_to_utf32be', 'utf32be_to_sjis0213',
    ],
);

@EXPORT_OK = map @$_, values %EXPORT_TAGS;
$EXPORT_TAGS{all}  = [ @EXPORT_OK ];

bootstrap ShiftJIS::X0213::MapUTF $VERSION;

1;
__END__