File Coverage

blib/lib/String/ToIdentifier/EN/Unicode.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package String::ToIdentifier::EN::Unicode;
2             BEGIN {
3 3     3   1961 $String::ToIdentifier::EN::Unicode::AUTHORITY = 'cpan:RKITOVER';
4             }
5             {
6             $String::ToIdentifier::EN::Unicode::VERSION = '0.11';
7             }
8              
9 3     3   20 use strict;
  3         4  
  3         98  
10 3     3   13 use warnings;
  3         6  
  3         87  
11 3     3   15 use base 'String::ToIdentifier::EN';
  3         4  
  3         284  
12 3     3   13 use Exporter 'import';
  3         6  
  3         331  
13              
14             =encoding UTF-8
15              
16             =head1 NAME
17              
18             String::ToIdentifier::EN::Unicode - Convert Strings to Unicode English Program
19             Identifiers
20              
21             =head1 SYNOPSIS
22              
23             use utf8;
24             use String::ToIdentifier::EN::Unicode 'to_identifier';
25              
26             to_identifier 'foo亰bar∑'; # foo亰BarNDashArySummation
27              
28             =head1 DESCRIPTION
29              
30             This module is a subclass L, see that module for
31             details.
32              
33             Unlike L, this module will not convert the Unicode
34             subset of C<\w> into ASCII.
35              
36             =head1 EXPORT
37              
38             Optionally exports the L
39             function.
40              
41             =cut
42              
43             our @EXPORT_OK = qw/to_identifier/;
44              
45             sub to_identifier {
46 401     401 1 1531 return __PACKAGE__->string_to_identifier(@_);
47             }
48              
49             sub _non_identifier_char {
50 403     403   1881 return qr/\W/;
51             }
52              
53             =head1 SEE ALSO
54              
55             L,
56             L,
57             L
58              
59             =head1 AUTHOR
60              
61             Rafael Kitover, C<< >>
62              
63             =head1 BUGS
64              
65             Please report any bugs or feature requests to C
66             rt.cpan.org>, or through the web interface at
67             L. I
68             will be notified, and then you'll automatically be notified of progress on your
69             bug as I make changes.
70              
71             =head1 REPOSITORY
72              
73             L
74              
75             =head1 SUPPORT
76              
77             More information on this module is available at:
78              
79             =over 4
80              
81             =item * RT: CPAN's request tracker (report bugs here)
82              
83             L
84              
85             =item * AnnoCPAN: Annotated CPAN documentation
86              
87             L
88              
89             =item * CPAN Ratings
90              
91             L
92              
93             =item * MetaCPAN
94              
95             L
96              
97             =item * Search CPAN
98              
99             L
100              
101             =back
102              
103             =head1 LICENSE AND COPYRIGHT
104              
105             Copyright (c) 2011 Rafael Kitover .
106              
107             This program is free software; you can redistribute it and/or modify it
108             under the terms of either: the GNU General Public License as published
109             by the Free Software Foundation; or the Artistic License.
110              
111             See http://dev.perl.org/licenses/ for more information.
112              
113             =cut
114              
115             1; # End of String::ToIdentifier::EN::Unicode