File Coverage

blib/lib/String/ToIdentifier/EN/Unicode.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 21 21 100.0


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