File Coverage

blib/lib/Encode/JP/Emoji/Property.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             Encode::JP::Emoji::Property - Emoji named character properties
4              
5             =head1 SYNOPSIS
6              
7             use utf8;
8             use Encode::JP::Emoji::Property;
9              
10             /\p{InEmojiDoCoMo}/;
11             /\p{InEmojiKDDIapp}/;
12             /\p{InEmojiKDDIweb}/;
13             /\p{InEmojiSoftBank}/;
14             /\p{InEmojiUnicode}/;
15             /\p{InEmojiGoogle}/;
16             /\p{InEmojiMixed}/;
17             /\p{InEmojiAny}/;
18              
19             =head1 DESCRIPTION
20              
21             This exports the following named character properties:
22              
23             =head2 \p{InEmojiDoCoMo}
24              
25             This matches DoCoMo's private emoji code points: C ... C.
26              
27             =head2 \p{InEmojiKDDIapp}
28              
29             This matches KDDI's private emoji code points: C ... C.
30              
31             =head2 \p{InEmojiKDDIweb}
32              
33             This matches B of KDDI's private emoji code points: C ... C.
34              
35             =head2 \p{InEmojiSoftBank}
36              
37             This matches SoftBank's private emoji code points: C ... C.
38              
39             =head2 \p{InEmojiMixed}
40              
41             This matches emoji code points of all three carriers above.
42              
43             =head2 \p{InEmojiGoogle}
44              
45             This matches Google's private emoji code points: C ... C.
46              
47             =head2 \p{InEmojiUnicode}
48              
49             This matches emoji code points which will be defined in the Unicode Standard.
50              
51             =head2 \p{InEmojiAny}
52              
53             This matches any emoji code points above.
54              
55             =head1 AUTHOR
56              
57             Yusuke Kawasaki, L
58              
59             =head1 SEE ALSO
60              
61             L and L
62              
63             =head1 COPYRIGHT
64              
65             Copyright 2009-2010 Yusuke Kawasaki, all rights reserved.
66              
67             =cut
68              
69             package Encode::JP::Emoji::Property;
70 21     21   220 use strict;
  21         41  
  21         1144  
71 21     21   130 use warnings;
  21         46  
  21         764  
72 21     21   129 use Encode::JP::Emoji::Mapping;
  21         47  
  21         530  
73 21     21   117 use base 'Exporter';
  21         44  
  21         6581  
74              
75             our $VERSION = '0.60';
76              
77             our @EXPORT = qw(
78             InEmojiDoCoMo
79             InEmojiKDDIapp
80             InEmojiKDDIweb
81             InEmojiSoftBank
82             InEmojiUnicode
83             InEmojiGoogle
84             InEmojiMixed
85             InEmojiAny
86             );
87              
88             *InEmojiDoCoMo = \&Encode::JP::Emoji::Mapping::InEmojiDocomoUnicode;
89             *InEmojiKDDIapp = \&Encode::JP::Emoji::Mapping::InEmojiKddiUnicode; # CAUTION!
90             *InEmojiKDDIweb = \&Encode::JP::Emoji::Mapping::InEmojiKddiwebUnicode;
91             *InEmojiSoftBank = \&Encode::JP::Emoji::Mapping::InEmojiSoftbankUnicode;
92             *InEmojiUnicode = \&Encode::JP::Emoji::Mapping::InEmojiUnicodeUnicode;
93             *InEmojiGoogle = \&Encode::JP::Emoji::Mapping::InEmojiGoogleUnicode;
94             *InEmojiMixed = \&Encode::JP::Emoji::Mapping::InEmojiMixedUnicode;
95              
96 6     6 0 4852 sub InEmojiAny { return <<"EOT"; }
97             +Encode::JP::Emoji::Property::InEmojiDoCoMo
98             +Encode::JP::Emoji::Property::InEmojiKDDIapp
99             +Encode::JP::Emoji::Property::InEmojiKDDIweb
100             +Encode::JP::Emoji::Property::InEmojiSoftBank
101             +Encode::JP::Emoji::Property::InEmojiUnicode
102             +Encode::JP::Emoji::Property::InEmojiGoogle
103             EOT
104              
105             1;