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

use Perlmazing qw(is_empty);
use Encode;

sub main ($) {
	my $str = shift;
	return '' unless not is_empty $str;
	my $str2 = $str;
	eval {
		$str = Encode::decode('utf8', $str, Encode::FB_CROAK);
	};
	return 0 if $@;
	return 1 if defined($str) and $str2 ne $str;
	return 0;
}