Char/Class/Alphabet.pm

## This file is auto-generated (at 2007-07-19T12:15:38Z).
## 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 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;
### Alphabet.pm ends here
1	wakaba	1.1	## This file is auto-generated (at 2007-07-19T12:15:38Z).
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 2007 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