<%once> use JSON::XS; use Data::Recursive::Encode; <%args> $name => undef $check => undef $prop => {} $object => undef <%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};