<%once>
use JSON::XS;
use Data::Recursive::Encode;
%once>
<%args>
$name => undef
$check => undef
$prop => {}
$object => undef
%args>
<%init>
if ( ref $check ) {
$check = Encode::encode('utf-8', JSON::XS->new->encode( Data::Recursive::Encode->decode_utf8($check) ));
}
$check = html_escape($check) unless $prop->{no_escape};
%init>