File Coverage

blib/lib/Webqq/Message/Face.pm
Criterion Covered Total %
statement 3 9 33.3
branch 0 6 0.0
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 18 22.2


line stmt bran cond sub pod time code
1             package Webqq::Message::Face;
2 1     1   4 use Exporter 'import';
  1         1  
  1         149  
3             @EXPORT=qw(face_to_txt);
4             my %FACE_MAP = qw(
5             0 惊讶
6             1 撇嘴
7             2 色
8             3 发呆
9             4 得意
10             5 流泪
11             6 害羞
12             7 闭嘴
13             8 睡
14             9 大哭
15             10 尴尬
16             11 发怒
17             12 调皮
18             13 呲牙
19             14 微笑
20             33 玫瑰
21             34 凋谢
22             36 爱心
23             46 强
24             50 难过
25             51 酷
26             53 抓狂
27             54 吐
28             55 惊恐
29             56 流汗
30             57 憨笑
31             58 大兵
32             72 便便
33             73 偷笑
34             74 可爱
35             75 白眼
36             76 傲慢
37             77 饥饿
38             78 困
39             79 奋斗
40             80 咒骂
41             81 疑问
42             82 嘘
43             83 晕
44             84 折磨
45             85 衰
46             87 敲打
47             96 冷汗
48             118 抱拳
49            
50             );
51             sub face_to_txt{
52 0     0 0   my $face = shift;
53 0 0         if(ref $face eq 'ARRAY'){
54 0 0         return "[未知表情]" if $face->[0] ne "face";
55 0 0         return "[系统表情]" unless exists $FACE_MAP{$face->[1]};
56 0           return "[" . $FACE_MAP{$face->[1]} . "]";
57             }
58             else{
59 0           return $face;
60             }
61             }
62             1;