> Для получения JSON данных использовали Data::Structure::Util
> use Data::Structure::Util qw(unbless);
> unbless($prepare_xml);
> $param->{'json'} = $json->encode( $prepare_xml );
вроде почти то что надо, только одна проблема: он делает unbless.
то есть методом класса если его делать, то он должен делать обратно
bless? как-то так