File Coverage

blib/lib/Text/Emoticon/Unicode.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package Text::Emoticon::Unicode;
2              
3 2     2   48680 use 5.006;
  2         8  
  2         352  
4 2     2   13 use strict;
  2         4  
  2         81  
5 2     2   11 use warnings;
  2         20  
  2         83  
6 2     2   2809 use utf8;
  2         14  
  2         17  
7 2     2   1996 use parent 'Text::Emoticon';
  2         1001  
  2         15  
8              
9             our $VERSION = '0.02';
10              
11             sub default_config {
12             return {
13 1     1 0 27 strict => 0,
14             };
15             }
16              
17             sub do_filter {
18 4     4 0 1479 my ($self, $char) = @_;
19 4         22 return $char;
20             }
21              
22             __PACKAGE__->register_subclass({
23             ':-)' => '☺',
24             ':)' => '☺',
25             ':-(' => '☹',
26             ':(' => '☹',
27             });
28              
29             1;
30              
31             __END__