Char/Class/Hiragana.pm

## This file is auto-generated (at 2008-11-24T04:21:25Z).
## 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 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;
### Hiragana.pm ends here
1	## This file is auto-generated (at 2008-11-24T04:21:25Z).
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 2008 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