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 50     50   435 use Perlmazing;
  50         123  
  50         264  
2 50     50   30009 use Encode;
  50         517386  
  50         8822  
3            
4             sub main ($) {
5 7     7   3631 my $str = shift;
6 7 100       23 return unless not is_empty $str;
7 5         11 my $str2 = $str;
8 5         8 eval {
9 5         17 $str = Encode::decode('utf8', $str, Encode::FB_CROAK);
10             };
11 5 100       217 return 0 if $@;
12 4 100 66     21 return 1 if defined($str) and $str2 ne $str;
13 3         8 return 0;
14             }
15