Char/Class/JISX4052.pm

## This file is auto-generated (at 2007-07-19T12:15:40Z).
## 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 2007 わかば 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	wakaba	1.1	## This file is auto-generated (at 2007-07-19T12:15:40Z).
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 2007 わかば 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