Char/Class/Kana.pm

## This file is auto-generated (at 2007-07-19T12:15:40Z).
## Do not edit by hand!
use strict;

package Char::Class::Kana;
our $VERSION = '1.02';

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

=head1 NAME

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


=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(InKanaAll InKanaDigraph InKanaHatsuon InKanaSeion InKanaSemiVoiced InKanaSmall InKanaVoiced);

sub InKanaAll {
<<EOH;
3041    3096    
309D    309F    
30A1    30FA    
30FD    30FF    
31F0    31FF    
3099    309C    
3031    3035    
303B
30FC
EOH
}

sub InKanaDigraph {
<<EOH;
309F
30FF
EOH
}

sub InKanaHatsuon {
<<EOH;
3098
30F3
EOH
}

sub InKanaSeion {
<<EOH;
3042
3044
3046
3048
304A
304B
304D
304F
3051
3053
3055
3057
3059
305B
305D
305F
3061
3064
3066
3068
306A
306B
306C
306D
306E
306F
3072
3075
3078
307B
307E
307F
3080
3081
3082
3084
3086
3088
3089
308A
308B
308C
308D
308F
3090
3091
3092
30A2
30A4
30A6
30A8
30AA
30AB
30AD
30AF
30B1
30B3
30B5
30B7
30B9
30BB
30BD
30BF
30C1
30C4
30C6
30C8
30CA
30CB
30CC
30CD
30CE
30CF
30D2
30D5
30D8
30DB
30DE
30DF
30E0
30E1
30E2
30E4
30E6
30E8
30E9
30EA
30EB
30EC
30ED
30EF
30F0
30F1
30F2
EOH
}

sub InKanaSemiVoiced {
<<EOH;
3071
3074
3077
307A
307D
30D1
30D4
30D7
30DA
30DD
EOH
}

sub InKanaSmall {
<<EOH;
3041
3043
3045
3047
3049
3063
3083
3085
3087
308E
3095
3096
30A1
30A3
30A5
30A7
30A9
30C3
30E3
30E5
30E7
30EE
30F5
30F6
31F0
31F1
31F2
31F3
31F4
31F5
31F6
31F7
31F8
31F9
31FA
31FB
31FC
31FD
31FE
31FF
EOH
}

sub InKanaVoiced {
<<EOH;
304C
304E
3050
3052
3054
3056
3058
305A
305C
305E
3060
3062
3065
3067
3069
3070
3073
3076
3079
307C
3094
30AC
30AE
30B0
30B2
30B4
30B6
30B8
30BA
30BC
30BE
30C0
30C2
30C5
30C7
30C9
30D0
30D3
30D6
30D9
30DC
30F4
30F7
30F8
30F9
30FA
EOH
}

=head1 COLLECTION NAMES

=over 4

=item C<InKanaAll>

=item C<InKanaDigraph>

=item C<InKanaHatsuon>

=item C<InKanaSeion>

=item C<InKanaSemiVoiced>

=item C<InKanaSmall>

=item C<InKanaVoiced>

=back

=cut


=head1 EXAMPLE

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

=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;
### Kana.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::Kana;
6			our $VERSION = '1.02';
7
8			use Exporter;
9			use vars qw(@EXPORT_OK @ISA $VERSION);
10			@ISA = qw(Exporter);
11
12			=head1 NAME
13
14			Char::Class::Kana - Regular Expression Character Classes - C<Kana>
15
16
17			=cut
18
19			sub import ($;@) {
20			my ($self, @sub) = (shift, @_);
21			for (@sub) {
22			no strict 'refs';
23			*{'main::'.$_} = \&{$_};
24			}
25			$Exporter::ExportLevel = 1;
26			$self->SUPER::import (@_);
27			$Exporter::ExportLevel = 0;
28			}
29
30			@EXPORT_OK = qw(InKanaAll InKanaDigraph InKanaHatsuon InKanaSeion InKanaSemiVoiced InKanaSmall InKanaVoiced);
31
32			sub InKanaAll {
33			<<EOH;
34			3041 3096
35			309D 309F
36			30A1 30FA
37			30FD 30FF
38			31F0 31FF
39			3099 309C
40			3031 3035
41			303B
42			30FC
43			EOH
44			}
45
46			sub InKanaDigraph {
47			<<EOH;
48			309F
49			30FF
50			EOH
51			}
52
53			sub InKanaHatsuon {
54			<<EOH;
55			3098
56			30F3
57			EOH
58			}
59
60			sub InKanaSeion {
61			<<EOH;
62			3042
63			3044
64			3046
65			3048
66			304A
67			304B
68			304D
69			304F
70			3051
71			3053
72			3055
73			3057
74			3059
75			305B
76			305D
77			305F
78			3061
79			3064
80			3066
81			3068
82			306A
83			306B
84			306C
85			306D
86			306E
87			306F
88			3072
89			3075
90			3078
91			307B
92			307E
93			307F
94			3080
95			3081
96			3082
97			3084
98			3086
99			3088
100			3089
101			308A
102			308B
103			308C
104			308D
105			308F
106			3090
107			3091
108			3092
109			30A2
110			30A4
111			30A6
112			30A8
113			30AA
114			30AB
115			30AD
116			30AF
117			30B1
118			30B3
119			30B5
120			30B7
121			30B9
122			30BB
123			30BD
124			30BF
125			30C1
126			30C4
127			30C6
128			30C8
129			30CA
130			30CB
131			30CC
132			30CD
133			30CE
134			30CF
135			30D2
136			30D5
137			30D8
138			30DB
139			30DE
140			30DF
141			30E0
142			30E1
143			30E2
144			30E4
145			30E6
146			30E8
147			30E9
148			30EA
149			30EB
150			30EC
151			30ED
152			30EF
153			30F0
154			30F1
155			30F2
156			EOH
157			}
158
159			sub InKanaSemiVoiced {
160			<<EOH;
161			3071
162			3074
163			3077
164			307A
165			307D
166			30D1
167			30D4
168			30D7
169			30DA
170			30DD
171			EOH
172			}
173
174			sub InKanaSmall {
175			<<EOH;
176			3041
177			3043
178			3045
179			3047
180			3049
181			3063
182			3083
183			3085
184			3087
185			308E
186			3095
187			3096
188			30A1
189			30A3
190			30A5
191			30A7
192			30A9
193			30C3
194			30E3
195			30E5
196			30E7
197			30EE
198			30F5
199			30F6
200			31F0
201			31F1
202			31F2
203			31F3
204			31F4
205			31F5
206			31F6
207			31F7
208			31F8
209			31F9
210			31FA
211			31FB
212			31FC
213			31FD
214			31FE
215			31FF
216			EOH
217			}
218
219			sub InKanaVoiced {
220			<<EOH;
221			304C
222			304E
223			3050
224			3052
225			3054
226			3056
227			3058
228			305A
229			305C
230			305E
231			3060
232			3062
233			3065
234			3067
235			3069
236			3070
237			3073
238			3076
239			3079
240			307C
241			3094
242			30AC
243			30AE
244			30B0
245			30B2
246			30B4
247			30B6
248			30B8
249			30BA
250			30BC
251			30BE
252			30C0
253			30C2
254			30C5
255			30C7
256			30C9
257			30D0
258			30D3
259			30D6
260			30D9
261			30DC
262			30F4
263			30F7
264			30F8
265			30F9
266			30FA
267			EOH
268			}
269
270			=head1 COLLECTION NAMES
271
272			=over 4
273
274			=item C<InKanaAll>
275
276			=item C<InKanaDigraph>
277
278			=item C<InKanaHatsuon>
279
280			=item C<InKanaSeion>
281
282			=item C<InKanaSemiVoiced>
283
284			=item C<InKanaSmall>
285
286			=item C<InKanaVoiced>
287
288			=back
289
290			=cut
291
292
293			=head1 EXAMPLE
294
295			use Char::Class::Kana;
296			if ($s =~ /\p{InSeion}/) {
297			print "Match!\n";
298			}
299
300			=head1 LICENSE
301
302			Copyright 2007 Wakaba <w@suika.fam.cx>
303
304			This library and the library generated by it is free software;
305			you can redistribute them and/or modify them under the same
306			terms as Perl itself.
307
308			=cut
309
310			1;
311			### Kana.pm ends here