Char/Class/Alphabet.pm

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

package Char::Class::Alphabet;
our $VERSION = '1.01';

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

=head1 NAME

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


=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(InLatinTCVN6909_2001 InLatinTCVN6909 InLatinVietnamese);

sub InLatinTCVN6909_2001 {
<<EOH;
0020    007E    
00A0
00C0    00C3    
00C8    00CA    
00CC    00CD    
00D2    00D5    
00D9    00DA    
00DD
00E0    00E3    
00E8    00EA    
00EC    00ED    
00F2    00F5    
00F9    00FA    
00FD
0102    0103    
0110    0111    
0128    0129    
0168    0169    
01A0    01A1    
01AF    01B0    
0300    0303    
0306
0309
031B
0323
1EA0    1EF9    
201C    201D    
EOH
}

*InLatinTCVN6909 = \&InLatinTCVN6909_2001;

*InLatinVietnamese = \&InLatinTCVN6909_2001;

=head1 COLLECTION NAMES

=over 4

=item C<InLatinTCVN6909>

An alias for InLatinTCVN6909_2001.

=item C<InLatinTCVN6909_2001>

=item C<InLatinVietnamese>

An alias for InLatinTCVN6909_2001.

=back

=cut


=head1 EXAMPLE

 use Char::Class::Alphabet;
 if ($s =~ /\p{InLatinTCVN6909_2001}/) {
   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;
### Alphabet.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::Alphabet;
6	our $VERSION = '1.01';
7
8	use Exporter;
9	use vars qw(@EXPORT_OK @ISA $VERSION);
10	@ISA = qw(Exporter);
11
12	=head1 NAME
13
14	Char::Class::Alphabet - Regular Expression Character Classes - C<Alphabet>
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(InLatinTCVN6909_2001 InLatinTCVN6909 InLatinVietnamese);
31
32	sub InLatinTCVN6909_2001 {
33	<<EOH;
34	0020 007E
35	00A0
36	00C0 00C3
37	00C8 00CA
38	00CC 00CD
39	00D2 00D5
40	00D9 00DA
41	00DD
42	00E0 00E3
43	00E8 00EA
44	00EC 00ED
45	00F2 00F5
46	00F9 00FA
47	00FD
48	0102 0103
49	0110 0111
50	0128 0129
51	0168 0169
52	01A0 01A1
53	01AF 01B0
54	0300 0303
55	0306
56	0309
57	031B
58	0323
59	1EA0 1EF9
60	201C 201D
61	EOH
62	}
63
64	*InLatinTCVN6909 = \&InLatinTCVN6909_2001;
65
66	*InLatinVietnamese = \&InLatinTCVN6909_2001;
67
68	=head1 COLLECTION NAMES
69
70	=over 4
71
72	=item C<InLatinTCVN6909>
73
74	An alias for InLatinTCVN6909_2001.
75
76	=item C<InLatinTCVN6909_2001>
77
78	=item C<InLatinVietnamese>
79
80	An alias for InLatinTCVN6909_2001.
81
82	=back
83
84	=cut
85
86
87	=head1 EXAMPLE
88
89	use Char::Class::Alphabet;
90	if ($s =~ /\p{InLatinTCVN6909_2001}/) {
91	print "Match!\n";
92	}
93
94	=head1 LICENSE
95
96	Copyright 2008 Wakaba <w@suika.fam.cx>
97
98	This library and the library generated by it is free software;
99	you can redistribute them and/or modify them under the same
100	terms as Perl itself.
101
102	=cut
103
104	1;
105	### Alphabet.pm ends here