Char/Class/Katakana.pm

## This file is auto-generated (at 2007-07-19T12:15:40Z).
## 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 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;
### Katakana.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::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 2007 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