Char/Class/JISX4052.pm

## This file is auto-generated (at 2008-11-24T04:21:27Z).
## Do not edit by hand!
use strict;

package Char::Class::JISX4052;
our $VERSION = '1.01';

use Exporter;
use vars qw(@EXPORT_OK @ISA $VERSION);
@ISA = qw(Exporter);

=head1 NAME

Char::Class::JISX4052 - Regular Expression Character Classes - C<JISX4052>

=head1 DESCRIPTION

JIS X 4052 character classes represented in UCS,
defined by JIS X 4052 Appendix 1, 2 and 3


=cut

sub import ($;@) {
  my ($self, @sub) = (shift, @_);
  for (@sub) {
    no strict 'refs';
    *{'main::'.$_} = \&{$_};
  }
  $Exporter::ExportLevel = 1;
  $self->SUPER::import (@_);
  $Exporter::ExportLevel = 0;
}

@EXPORT_OK = qw(InJISX4052Alphabetic InJISX4052AlphabeticBasic InJISX4052AlphabeticRecommended InJISX4052Digits InJISX4052KanaCharacter InJISX4052Kenten);

sub InJISX4052Alphabetic {
&InJISX4052AlphabeticBasic.
&InJISX4052AlphabeticRecommended.
''
}

sub InJISX4052AlphabeticBasic {
<<EOH;
0021    007E    
EOH
}

sub InJISX4052AlphabeticRecommended {
<<EOH;
00A1    00FF    
0100
0112
012A
014C
016A
0101
0113
012B
014D
016B
EOH
}

sub InJISX4052Digits {
<<EOH;
002C
002E
0030    0039
EOH
}

sub InJISX4052KanaCharacter {
<<EOH;
3041    3093    
309D    309E    
30A1    30F6    
30FC    30FE    
EOH
}

sub InJISX4052Kenten {
<<EOH;
25EF
25EB
25B2
25B3
25EE
25E9
FE45    FE46    
EOH
}

=head1 COLLECTION NAMES

=over 4

=item C<InJISX4052Alphabetic>

欧文用文字クラス (JIS X 4052:2000 附属書3)

=item C<InJISX4052AlphabeticBasic>

欧文用文字クラス基本文字種 (JIS X 4052:2000 附属書2)

=item C<InJISX4052AlphabeticRecommended>

欧文用文字クラス推奨文字種 (JIS X 4052:2000 附属書3)

=item C<InJISX4052Digits>

連数字クラス (JIS X 4052:2000 附属書4)

=item C<InJISX4052KanaCharacter>

仮名文字クラス (JIS X 4052:2000 附属書1)

=item C<InJISX4052Kenten>

圏点クラス (JIS X 4052:2000 附属書2)

=back

=cut


=head1 EXAMPLE

 use Char::Class::JISX4052;
 if ($s =~ /\p{InKanaCharacter}/) {
   print "Match!\n";
 }

=head1 SEE ALSO

JIS X 4052:2000, 『日本語文書の組版指定交換形式 Exchange format for 
Japanese documents with composition markup』, 日本工業標準調査会 
Japanese Industrial Standard Commitee (JISC <http://www.jisc.go.jp/>), 2000.

=head1 LICENSE

Copyright 2008 わかば Wakaba <w@suika.fam.cx>

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

=cut

1;
### JISX4052.pm ends here
1	## This file is auto-generated (at 2008-11-24T04:21:27Z).
2	## Do not edit by hand!
3	use strict;
4
5	package Char::Class::JISX4052;
6	our $VERSION = '1.01';
7
8	use Exporter;
9	use vars qw(@EXPORT_OK @ISA $VERSION);
10	@ISA = qw(Exporter);
11
12	=head1 NAME
13
14	Char::Class::JISX4052 - Regular Expression Character Classes - C<JISX4052>
15
16	=head1 DESCRIPTION
17
18	JIS X 4052 character classes represented in UCS,
19	defined by JIS X 4052 Appendix 1, 2 and 3
20
21
22	=cut
23
24	sub import ($;@) {
25	my ($self, @sub) = (shift, @_);
26	for (@sub) {
27	no strict 'refs';
28	*{'main::'.$_} = \&{$_};
29	}
30	$Exporter::ExportLevel = 1;
31	$self->SUPER::import (@_);
32	$Exporter::ExportLevel = 0;
33	}
34
35	@EXPORT_OK = qw(InJISX4052Alphabetic InJISX4052AlphabeticBasic InJISX4052AlphabeticRecommended InJISX4052Digits InJISX4052KanaCharacter InJISX4052Kenten);
36
37	sub InJISX4052Alphabetic {
38	&InJISX4052AlphabeticBasic.
39	&InJISX4052AlphabeticRecommended.
40	''
41	}
42
43	sub InJISX4052AlphabeticBasic {
44	<<EOH;
45	0021 007E
46	EOH
47	}
48
49	sub InJISX4052AlphabeticRecommended {
50	<<EOH;
51	00A1 00FF
52	0100
53	0112
54	012A
55	014C
56	016A
57	0101
58	0113
59	012B
60	014D
61	016B
62	EOH
63	}
64
65	sub InJISX4052Digits {
66	<<EOH;
67	002C
68	002E
69	0030 0039
70	EOH
71	}
72
73	sub InJISX4052KanaCharacter {
74	<<EOH;
75	3041 3093
76	309D 309E
77	30A1 30F6
78	30FC 30FE
79	EOH
80	}
81
82	sub InJISX4052Kenten {
83	<<EOH;
84	25EF
85	25EB
86	25B2
87	25B3
88	25EE
89	25E9
90	FE45 FE46
91	EOH
92	}
93
94	=head1 COLLECTION NAMES
95
96	=over 4
97
98	=item C<InJISX4052Alphabetic>
99
100	欧文用文字クラス (JIS X 4052:2000 附属書3)
101
102	=item C<InJISX4052AlphabeticBasic>
103
104	欧文用文字クラス基本文字種 (JIS X 4052:2000 附属書2)
105
106	=item C<InJISX4052AlphabeticRecommended>
107
108	欧文用文字クラス推奨文字種 (JIS X 4052:2000 附属書3)
109
110	=item C<InJISX4052Digits>
111
112	連数字クラス (JIS X 4052:2000 附属書4)
113
114	=item C<InJISX4052KanaCharacter>
115
116	仮名文字クラス (JIS X 4052:2000 附属書1)
117
118	=item C<InJISX4052Kenten>
119
120	圏点クラス (JIS X 4052:2000 附属書2)
121
122	=back
123
124	=cut
125
126
127	=head1 EXAMPLE
128
129	use Char::Class::JISX4052;
130	if ($s =~ /\p{InKanaCharacter}/) {
131	print "Match!\n";
132	}
133
134	=head1 SEE ALSO
135
136	JIS X 4052:2000, 『日本語文書の組版指定交換形式 Exchange format for
137	Japanese documents with composition markup』, 日本工業標準調査会
138	Japanese Industrial Standard Commitee (JISC <http://www.jisc.go.jp/>), 2000.
139
140	=head1 LICENSE
141
142	Copyright 2008 わかば Wakaba <w@suika.fam.cx>
143
144	This library and the library generated by it is free software;
145	you can redistribute them and/or modify them under the same
146	terms as Perl itself.
147
148	=cut
149
150	1;
151	### JISX4052.pm ends here