<% $json %> <%once> use JSON::XS; <%args> $id => undef <%init> my %result; if ( $id && $id =~ /^\d+$/ && $id > 0 ) { my $order = $keeper->get_document_by_id( $id, class => 'webshop::Order'); if ( ref $order ) { $result{html} = Encode::decode('utf-8', $m->scomp('/contenido/webshop/components/order_found.msn', order => $order)); $result{success} = 1; } else { $result{error} = Encode::decode('utf-8', 'Заказ с данным идентификатором не найден.'); } } else { $result{error} = Encode::decode('utf-8', 'Неверный идентификатор заказа. Должно быть целое число.'); } my $json = encode_json \%result;