<% $json %> <%once> use JSON::XS; use utf8; <%args> $id => undef <%init> my %result; if ( $id && $id =~ /^\d+$/ ) { my $order = $keeper->{payments}->get_order( $id ); if ( ref $order ) { $result{brief} = Encode::decode('utf-8', $m->scomp('/contenido/payments/components/block_order_brief.msn', order => $order)); $result{actions} = Encode::decode('utf-8', $m->scomp('/contenido/payments/components/order_actions.msn', order_id => $order->id)); } } else { $result{error} = 'Не указан или неверно указан идентификатор заказа'; } my $json = encode_json \%result;