Char/Class/Katakana.pm

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

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

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

=head1 NAME

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


=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(InKatakanaAll InKatakanaDigraph InKatakanaHatsuon InKatakanaSeion InKatakanaSemiVoiced InKatakanaSmall InKatakanaVoiced);

sub InKatakanaAll {
<<EOH;
30A1    30FA    
30FD    30FF    
31F0    31FF    
EOH
}

sub InKatakanaDigraph {
<<EOH;
30FF
EOH
}

sub InKatakanaHatsuon {
<<EOH;
30F3
EOH
}

sub InKatakanaSeion {
<<EOH;
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 InKatakanaSemiVoiced {
<<EOH;
30D1
30D4
30D7
30DA
30DD
EOH
}

sub InKatakanaSmall {
<<EOH;
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 InKatakanaVoiced {
<<EOH;
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<InKatakanaAll>

=item C<InKatakanaDigraph>

=item C<InKatakanaHatsuon>

=item C<InKatakanaSeion>

=item C<InKatakanaSemiVoiced>

=item C<InKatakanaSmall>

=item C<InKatakanaVoiced>

=back

=cut


=head1 EXAMPLE

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

=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;
### Katakana.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::Katakana;
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::Katakana - Regular Expression Character Classes - C<Katakana>
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(InKatakanaAll InKatakanaDigraph InKatakanaHatsuon InKatakanaSeion InKatakanaSemiVoiced InKatakanaSmall InKatakanaVoiced);
31
32	sub InKatakanaAll {
33	<<EOH;
34	30A1 30FA
35	30FD 30FF
36	31F0 31FF
37	EOH
38	}
39
40	sub InKatakanaDigraph {
41	<<EOH;
42	30FF
43	EOH
44	}
45
46	sub InKatakanaHatsuon {
47	<<EOH;
48	30F3
49	EOH
50	}
51
52	sub InKatakanaSeion {
53	<<EOH;
54	30A2
55	30A4
56	30A6
57	30A8
58	30AA
59	30AB
60	30AD
61	30AF
62	30B1
63	30B3
64	30B5
65	30B7
66	30B9
67	30BB
68	30BD
69	30BF
70	30C1
71	30C4
72	30C6
73	30C8
74	30CA
75	30CB
76	30CC
77	30CD
78	30CE
79	30CF
80	30D2
81	30D5
82	30D8
83	30DB
84	30DE
85	30DF
86	30E0
87	30E1
88	30E2
89	30E4
90	30E6
91	30E8
92	30E9
93	30EA
94	30EB
95	30EC
96	30ED
97	30EF
98	30F0
99	30F1
100	30F2
101	EOH
102	}
103
104	sub InKatakanaSemiVoiced {
105	<<EOH;
106	30D1
107	30D4
108	30D7
109	30DA
110	30DD
111	EOH
112	}
113
114	sub InKatakanaSmall {
115	<<EOH;
116	30A1
117	30A3
118	30A5
119	30A7
120	30A9
121	30C3
122	30E3
123	30E5
124	30E7
125	30EE
126	30F5
127	30F6
128	31F0
129	31F1
130	31F2
131	31F3
132	31F4
133	31F5
134	31F6
135	31F7
136	31F8
137	31F9
138	31FA
139	31FB
140	31FC
141	31FD
142	31FE
143	31FF
144	EOH
145	}
146
147	sub InKatakanaVoiced {
148	<<EOH;
149	30AC
150	30AE
151	30B0
152	30B2
153	30B4
154	30B6
155	30B8
156	30BA
157	30BC
158	30BE
159	30C0
160	30C2
161	30C5
162	30C7
163	30C9
164	30D0
165	30D3
166	30D6
167	30D9
168	30DC
169	30F4
170	30F7
171	30F8
172	30F9
173	30FA
174	EOH
175	}
176
177	=head1 COLLECTION NAMES
178
179	=over 4
180
181	=item C<InKatakanaAll>
182
183	=item C<InKatakanaDigraph>
184
185	=item C<InKatakanaHatsuon>
186
187	=item C<InKatakanaSeion>
188
189	=item C<InKatakanaSemiVoiced>
190
191	=item C<InKatakanaSmall>
192
193	=item C<InKatakanaVoiced>
194
195	=back
196
197	=cut
198
199
200	=head1 EXAMPLE
201
202	use Char::Class::Katakana;
203	if ($s =~ /\p{InSeion}/) {
204	print "Match!\n";
205	}
206
207	=head1 LICENSE
208
209	Copyright 2008 Wakaba <w@suika.fam.cx>
210
211	This library and the library generated by it is free software;
212	you can redistribute them and/or modify them under the same
213	terms as Perl itself.
214
215	=cut
216
217	1;
218	### Katakana.pm ends here