Char/Class/Hiragana.pm

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

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

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

=head1 NAME

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


=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(InHiraganaAll InHiraganaDigraph InHiraganaHatsuon InHiraganaSeion InHiraganaSemiVoiced InHiraganaSmall InHiraganaVoiced);

sub InHiraganaAll {
<<EOH;
3041    3096    
309D    309F    
EOH
}

sub InHiraganaDigraph {
<<EOH;
309F
EOH
}

sub InHiraganaHatsuon {
<<EOH;
3098
EOH
}

sub InHiraganaSeion {
<<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
EOH
}

sub InHiraganaSemiVoiced {
<<EOH;
3071
3074
3077
307A
307D
EOH
}

sub InHiraganaSmall {
<<EOH;
3041
3043
3045
3047
3049
3063
3083
3085
3087
308E
3095
3096
EOH
}

sub InHiraganaVoiced {
<<EOH;
304C
304E
3050
3052
3054
3056
3058
305A
305C
305E
3060
3062
3065
3067
3069
3070
3073
3076
3079
307C
3094
EOH
}

=head1 COLLECTION NAMES

=over 4

=item C<InHiraganaAll>

=item C<InHiraganaDigraph>

=item C<InHiraganaHatsuon>

=item C<InHiraganaSeion>

=item C<InHiraganaSemiVoiced>

=item C<InHiraganaSmall>

=item C<InHiraganaVoiced>

=back

=cut


=head1 EXAMPLE

 use Char::Class::Hiragana;
 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;
### Hiragana.pm ends here
1	wakaba	1.1	## This file is auto-generated (at 2007-07-19T12:15:39Z).
2			## Do not edit by hand!
3			use strict;
4
5			package Char::Class::Hiragana;
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::Hiragana - Regular Expression Character Classes - C<Hiragana>
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(InHiraganaAll InHiraganaDigraph InHiraganaHatsuon InHiraganaSeion InHiraganaSemiVoiced InHiraganaSmall InHiraganaVoiced);
31
32			sub InHiraganaAll {
33			<<EOH;
34			3041 3096
35			309D 309F
36			EOH
37			}
38
39			sub InHiraganaDigraph {
40			<<EOH;
41			309F
42			EOH
43			}
44
45			sub InHiraganaHatsuon {
46			<<EOH;
47			3098
48			EOH
49			}
50
51			sub InHiraganaSeion {
52			<<EOH;
53			3042
54			3044
55			3046
56			3048
57			304A
58			304B
59			304D
60			304F
61			3051
62			3053
63			3055
64			3057
65			3059
66			305B
67			305D
68			305F
69			3061
70			3064
71			3066
72			3068
73			306A
74			306B
75			306C
76			306D
77			306E
78			306F
79			3072
80			3075
81			3078
82			307B
83			307E
84			307F
85			3080
86			3081
87			3082
88			3084
89			3086
90			3088
91			3089
92			308A
93			308B
94			308C
95			308D
96			308F
97			3090
98			3091
99			3092
100			EOH
101			}
102
103			sub InHiraganaSemiVoiced {
104			<<EOH;
105			3071
106			3074
107			3077
108			307A
109			307D
110			EOH
111			}
112
113			sub InHiraganaSmall {
114			<<EOH;
115			3041
116			3043
117			3045
118			3047
119			3049
120			3063
121			3083
122			3085
123			3087
124			308E
125			3095
126			3096
127			EOH
128			}
129
130			sub InHiraganaVoiced {
131			<<EOH;
132			304C
133			304E
134			3050
135			3052
136			3054
137			3056
138			3058
139			305A
140			305C
141			305E
142			3060
143			3062
144			3065
145			3067
146			3069
147			3070
148			3073
149			3076
150			3079
151			307C
152			3094
153			EOH
154			}
155
156			=head1 COLLECTION NAMES
157
158			=over 4
159
160			=item C<InHiraganaAll>
161
162			=item C<InHiraganaDigraph>
163
164			=item C<InHiraganaHatsuon>
165
166			=item C<InHiraganaSeion>
167
168			=item C<InHiraganaSemiVoiced>
169
170			=item C<InHiraganaSmall>
171
172			=item C<InHiraganaVoiced>
173
174			=back
175
176			=cut
177
178
179			=head1 EXAMPLE
180
181			use Char::Class::Hiragana;
182			if ($s =~ /\p{InSeion}/) {
183			print "Match!\n";
184			}
185
186			=head1 LICENSE
187
188			Copyright 2007 Wakaba <w@suika.fam.cx>
189
190			This library and the library generated by it is free software;
191			you can redistribute them and/or modify them under the same
192			terms as Perl itself.
193
194			=cut
195
196			1;
197			### Hiragana.pm ends here