File Coverage

lib/Perlmazing/Perlmazing/Precompile/is_utf8.pm
Criterion Covered Total %
statement 14 14 100.0
branch 6 6 100.0
condition 2 3 66.6
subroutine 3 3 100.0
pod n/a
total 25 26 96.1


line stmt bran cond sub pod time code
1 31     31   305 use Perlmazing;
  31         80  
  31         248  
2 31     31   20694 use Encode;
  31         340334  
  31         5791  
3            
4             sub main ($) {
5 7     7   3676 my $str = shift;
6 7 100       25 return '' unless not is_empty $str;
7 5         11 my $str2 = $str;
8 5         9 eval {
9 5         16 $str = Encode::decode('utf8', $str, Encode::FB_CROAK);
10             };
11 5 100       220 return 0 if $@;
12 4 100 66     19 return 1 if defined($str) and $str2 ne $str;
13 3         7 return 0;
14             }
15